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INTERNALS 
Essential guide to learning the 
inside information of the ST. 
Detailed descriptions of sound 


& graphics chips, internal 
hardware, various ports, GEM. 
Commented BIOS listing. An 
indispensible reference for 


GEM Programmer's Ref. 
For serious programmers in 
need of detailed information 
on GEM. Written with an 
easy-to-understand format. All 
GEM examples are written in 
C and assembly. Required 
reading for the serious pro- 


TRICKS & TIPS 
Fantastic collection of pro- 
grams and info for the ST. 
Complete programs include: 
super-fast RAM disk; time- 
saving printer spooler; color 
print hardcopy; plotter output 
hardcopy. Money saving tricks 


GRAPHICS & SOUND 
Detailed guide to understand- 
ing graphics & sound on the 
ST. 2D & 3D function plotters, 
Moiré patterns, various reso- 
lutions and graphic memory, 
fractals, waveform generation. 
Examples written in C, LOGO, 





PRESENTING THE ST 
Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.95 


Abacus 


your library. 450pp. $19.95 


grammer. 








MACHINE LANGUAGE 
Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
& important details of the 
instruction set, and use of 
the internal system 
routines. 280pp $19.95 


450pp. $19.95 


and tips. 





LOGO 
Take control of your 
ATARI ST by learning 
LOGO-the easy-to-use, 
yet powerful language. 
Topics covered include 
Structured programming, 
graphic movement, file 
handling and more. An 
excellent book for kids as 
well as adults. $19.95 





Optional diskettes are available for all book titles at $14.95 


Call now for the name of your nearest dealer. Or order directly from ABACUS with your MasterCard, VISA, or Amex card. Add 
$4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and books coming soon. Call or 


thdt2599064 


TE: 


200 pp. $19.95 


PEEKS & POKES 
Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. $16.95 


BASIC and Modula2. $19.95 


f 


BEGINNER'S GUIDE 





Finally a book for those 
new to the ST wanting to 
understanding ST basics. 
Thoroughly understand 
your ST and its many 
devices, Learn the funda- 
mentals of BASIC, LOGO 
and more. Complete with 
index, glossary and illus- 
trations. +200pp $14.95 


BASIC Training Guide 


Indispensible handbook for . 


beginning BASIC program- 
mers. Learn fundamentals of 
Programming. Flowcharting, 
numbering system, logical 
operators, program structures, 
bits & bytes, disk use, chapter 
quizzes. 200pp. $16.95 








BASIC TOC 
If you are already familiar 
with BASIC, learning C 
will be all that much 
easier. Shows the trans- 


ition from a BASIC 
program, translated step 
by step, to the final C 
program. For all users 
interested in taking the 
next step. $19.95 


The ATARI logo and ATARI ST are trademarks of Atari Corp. 


write for your free catalog. Dealer inquiries welcome—over 1400 dealers nationwide. 
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This LOGO program mimics a numerical calculator. 





VDI Sampler... . .. geen James Luczak 53ST 


Call VDI functions from ST BASIC—and learn how to use them. 


VIP Professional/Lite (vip Technologies). . . Arthur Leyenberger 67ST 
A spreadsheet for the ST, based on the popular Lotus 1-2-3. 
Abacus Books (Abacus Software, Inc.) ........... Douglas Weir 76ST 
Three recently introduced ST guides are reviewed. 


COLUMNS 
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Storage classes and arrays are examined this month. 
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PRO FORTRAN-77 
Prospero has announced Pro Fortran-77, a compiler that enables developers to recompile 
existing mini and mainframe software, to run on the ST line. 





The original Fortran-77 is a very popular high-level programming language, often chosen 
by engineers, academics and scientists for their demanding work. 

Pro Fortran-77 retails for $149.99. For more information, write: Prospero Software, 190 Cas- 
telnau, London, England SW13 9DH, or call 01-741 8531. 
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OTHER NEWS 


In Championship Golf: The Great Courses 
of the World, Gamestar has released Volume 
1: Pebble Beach. 

Actual topographical maps were used, to 
authentically recreate the course itself. All 
eighteen holes are placed, along with traps, 
roughs and trees. Even an ocean breeze is 
added into the play, in which up to four can 
compete. A driving range and putting green 
are available for practice and/or warmup. 

For information, contact: Gamestar/Acti- 
vision, Inc., 2350 Bayshore Frontage Road, 
Mountain View, CA 94043 — (415) 960-0410. 
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Introduction to Sound and Graphics on the 
Atari ST, by Tim Knight, has been published 
by COMPUTE! Books. 

Included in this 195-page volume are sec- 
tions on creating graphics using LOGO and 
FORTH, generating sound effects, drawing in 
BASIC, setting up your ST and using GEM. 

The retail price is $14.95, from COMPUTE! 
Books, 324 West Wendover Avenue, Suite 200, 
Greensboro, NC 27408. 
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ARTWORX RELEASES FOR THE ST 

Compubridge and Bridge 4.0, both popular programs for the 8-bit Ataris, are now available 
for the 16-bit machines. Compubridge is a basic bridge tutorial, compiled from the Five Card 
Major Bridge Teacher's Manual by Shirley Silverman. The program has ten chapters of text 
and has eight sections of quizzes. While you play “test” games, the computer analyzes your 
moves and suggests alternates. 

Bridge 4.0 allows you and your computer partner to bid against two computer opponents, 
then play out the hand. This comprehensive bridge-playing game is similar to the newspaper 
column, with replay of selected hands, rotation of players’ cards and a built-in referee. 

Each bridge program retails for $29.95. Available from Artworx Software Company, Inc., 150 
North Main Street, Fairport, NY 14450. CIRCLE #169 ON READER SERVICE CARD 





SOFTWORKS BASIC 


This new BASIC for STs is chock full of fea- 
tures. Advanced data structures, the ability 
to call machine language routines, superior 
string manipulation, full error detection, and 
sequential and random access disk filing are 
only some of its abilities. 

Softworks BASIC consists of a compiler, 
runtime package and support library. The 


COMPUBRIDGE TEXT SELECTION 


soos THE ABSOLUTE BEGINNER 
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Compubridge. 








compiler converts source files created by the editor into tokenized files which the runtime 
system executes. The support library is made up of example programs and Atari interface files. 


For $79.00, Softworks Limited, 2944 N. Broadway, Chicago, IL 60657 — (312) 975-4030. 
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10-MEGABYTE DRIVE 

Haba is now shipping their external 10- 
megabyte hard disk drive, which stores the 
equivalent of more than a dozen double-sided 
800K disks. 


Access time with the hard drive is much 
faster, using a data transfer rate of 5 mega- 
bits/second. 

Complete with ST interface cable, the drive 
lists for $699.95. From Haba/Arrays, Inc., 6711 
Valjean Avenue, Van Nuys, CA 91406 — (818) 


994-1899. CIRCLE #130 ON READER SERVICE CARD 
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ANALOG COMPUTING 









by Alain Birtz 





The ST is one of the most powerful microcomputers 
currently on the market. Its low price, together with 
the GEM mouse-driven user interface, its exceptional 
graphics capabilities and its 68000 microprocessor, 
make it one of the most attractive machines available. 

Its only defect (rapidly being remedied) is its lack 
of programming languages. The new owner of an ST, 
as a rule, has to settle for two languages: ST BASIC 
and DR LOGO. Although the LOGO itself is of high 
quality, the manual leaves something to be desired. 
It consists of a series of technical definitions of lan- 
guage statements, totally devoid of programming ex- 
amples. This is a great obstacle for a LOGO novice. 
Program examples are absolutely necessary, and mag- 
azines like ANALOG Computing will have to pro- 
vide the forum for any examples. 

ST Calculator is written in LOGO for the ST. It al- 
lows numerical calculations similar to those of an or- 
dinary hand-held calculator, which are carried out 
by clicking the mouse on the Calculator’s keys. It con- 
sists of six procedures and is activated by calling the 
procedure C. 

The first thing to happen when you call C is that 
the text window is cleared and a message is print- 
ed. These are done by the first four lines of C. 

Next, the graphics window is cleared, the word 
Calculator is printed (using the procedure TT, which 


ST-LOG 


Calculator 


More on using LOGO 


allows one to print text in the graphics window), and 
the rectangles representing the Calculator and its 
window (where its numbers are displayed) are drawn 
(Lines 6-11). The variable KEY.LIST is defined in Line 
12; it contains the symbols for each of the Calcula- 
tor’s keys. 

Next, the procedure KEY is called. KEY draws the 
Calculator’s keys. It takes four parameters: NO, a 
counter; KEY.CHR, which receives KEY.LIST as a val- 
ue; and XX and YY, the coordinates of the rectan- 
gles forming the keys themselves. 

KEY is a recursive procedure: it will call itself six- 
teen times, each time drawing one key and decre- 
menting the counter NO. When the counter equals 
0, KEY terminates, and execution returns to Line 14 
of C. The cursor is then positioned at the Calcula- 
tor’s view window, and certain variables are initial- 
ized. C terminates by calling ACT. 

ACT is an infinite loop. It calls itself after every 
click of the mouse’s button. It determines the mouse 
state and transfers this information to the variable 
CUR. If the mouse’s button is depressed (i.e., clicked), 
the third item in CUR has the value TRUE, and the 
procedure KEEP is called; if not, nothing happens. 
Then ACT is called again. 

The MOUSE primitive is slow; the time it takes 
to respond to a click is great. Therefore, it’s advis- 
able to set the control panel response rate for the 
mouse button at maximum (4). 
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4 ST Calculator continued 


At this point in the program, we've drawn the Cal- 
culator, its window and its keys, and we have a proce- 
dure which tells us when the mouse button has been 
clicked. Now we need some way of determining on 
which key the mouse has been clicked. This task is 
accomplished by the procedure KEEP. 

Imagine the area occupied by the Calculator’s keys 
as a grid of seven rows and seven columns, corre- 
sponding to the four rows of the actual keys as well 
as the three rows between the keys. 

From the position of the mouse’s arrow on the 
screen, KEEP calculates the variables X and Y as 
values along the row (2-8) and along the column (0-6), 
respectively, where the arrow is located. If either X 
or Y is odd, then the arrow is between rows or col- 
umns (it cannot be pointing to a key), and nothing 
happens (line four of KEEP). 


Desk File Run Edit Settings 
LOGO DIALOGUE [oE 





ANCALCULATOR 


Yeo & 


PRESS FIRMLY OW THE MOUSE 
TO MAKE @ SELECTION 


Oo o@ 
Aw o oe 
] f) El 





Figure 1. 


Otherwise, KEEP calculates the value of the vari- 
able K in such a way that K gives the number of the 
item in KEY.LIST corresponding to the key select- 
ed. For example, if the / key (division operator) is 
selected, X and Y have the values 8 and 2. K then 
gets the value 8, and the eighth element of KEY.LIST 
is (voila!) /. 

Two variables are used to perform calculations. B 
contains the “current” value, the number currently 
displayed in the Calculator’s window. A contains the 
second value, held in memory. 

Initially A and B are set to O. If a numerical key 
(0-9) is clicked, KEEP modifies B to reflect the new 
value of the current number. It displays this updated 
number (via the procedure DISPLAY) in the Calcula- 
tor’s window. If the key is not numeric, then KEY 
calls the procedure OPER. 

OPER takes the values of A and B, carries out the 
operation determined by K (in the example above, 
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this would result in the operation A/B), places the 
result in B, sets A to 0 and displays the value of B 
by calling DISPLAY. 

If K yields the operation C (clear), both A and B 
are set to 0. Control is then returned to ACT, which 
waits for the next click of the mouse button. 

All that’s left is to show how DISPLAY works. First, 
we must understand how objects are displayed on 
the graphics screen. 

When a character is sent to the screen, each of its 
pixels is “ored” with the value of the corresponding 
screen pixel. Thus, the new object is, in a sense, “ad- 
ded” to what’s already on-screen. 

For example, if the character 3 is displayed over 
a 4, the resulting display will be a combination of 
the two characters. Displaying more and more char- 
acters at the same location will finally result in a com- 
pletely black space. 

So we must first erase the previous character when- 
ever we want to display a new character in the same 
location. To do this, we change the display mode with 
the primitive PX (PENREVERSE) and “reprint” the 
old character, effectively erasing it. After this, we can 
display the new character. 

The number to be displayed is contained in TX, 
and the number previously displayed is in DP. DIS- 
PLAY erases DP with the sequence PX TT :DP, then 
assigns the value of TX to DP and, finally, displays 
DP. A 





Attention: In this listing, the exclamation points 
at the end of program lines shouldn’t be typed 
in. They are there to indicate that the statement 
wraps around to the next line. 





Listing 1. 
LOGO listing. 


mo ¢ 

CT PRINT (1 PRINT (1 

PRINT [PRESS FIRMLY ON THE MOUSE] 
PRINT {TO MAKE A SELECTION] 

CS HT HOME ; BY ALAIN BIRTZ 

PU SETPOS [-26 1381 PD 

TT CWORD CHAR 14 CHAR 15 “CALCULATOR! 


} 

BOX (-98 -150 1806 3006] 
BOX [-95 -155 196 3161 

BOX [-78 70 140 36] 

BOX [-72 

MAKE egal bo f1izgszs*# 456778! 


9-@O@C= 

KEY 16 :KEY.LIST —70 6 
PU SETPOS [-48 78] PD 
MAKE "DP [] 

MAKE “A @ MAKE "B 6 
act 

END 


TO KEY :NO :KEY.CHR :HHK :¥¥ 


ST-LOG 





IF :NO = 6 [STOP] 

BOX (LIST :HX :¥¥ "20 "203 

PU SETPOS CLIST :XX + 6 :¥¥Y + 4) PD 

TT FIRST :KEY.CHR 

IF REMAINDER :NO 4 = i CKEY :NO - I 

BF :KEY.CHR :XX - 120 :¥¥ - 48 STOP]. 
oa ‘NO - 1 BF :KEY.CHR :xXX + 48 :Y¥Y 


TO ACT 
MAKE “CUR MOUSE 


IF ITEM 3 :CUR = “TRUE (KEEP 

ACT 

END 

TO KEEP 

MAKE “XH INT C116 + FIRST :CUR} / 28 
MAKE "“¥Y INT (20 — ITEM 2 :CUR) / 26 
IF COR :X% € 2 3K > 8 :¥ > 6 :¥ ¢< @R! 
EMAINDER :X 2 = 1 REMAINDER :¥ 2 = 1! 
2 (CSTOPI 

MAKE "K (:% + 4 # :¥) 

IF COR :X = 8 :K > 1397 rOPER STOP] 
MAKE “"B 10 *% :B + ITEM :K :KEY.LIST ! 
ac :B 


TO DISPLAY :TX 


PX TT :DP MAKE “DP :TH TT :DP 


END 


TO OPER 
IF :X 


8 (MAKE "A :B MAKE “OP :K MA! 


KE "B a DISPLAY [1] 


IF 3K 


IF :K = 14 (CMAKE 
LaY [1] 
END 


MAKE “GFILL “FALSE 


15 (CIF :O0P = 4 [MAKE "B :A *! 
:B] IF :0P = 8 [MAKE "B :A / 
:OP = 12 [MAKE "B 
16 [MAKE "B :a + 


7B] IF! 
:A - :B] IF :0P =! 


:B] DISPLAY :B) 
"A @ MOKE "B @ DISP! 


MAKE “CUR [-22 -111 FALSE FALSE TRUE! 


1 
MAKE "Y¥Y 6 
MAKE "HK 4 


MAKE "KEY.LIST (123% 456778 ! 


39 - @C = tj 
MAKE "K 14 


MAKE “CC "HRRURHRRHH 


MAKE "B @ 
MAKE “A 8 
MAKE “OP 4 
MAKE "DP [] 





Megamax C 


for the 


Atari ST 


Featuring 
* One pass Compile « In-Line Assembly * Smart Linker 


¢ Full Access to GEM routines * Register Variable 
Support » Position Independent Code * and much more... 


System Includes: 
¢ Full K&R C Compiler (with common extensions) 
+ Linker « Librarian » Disassembler * C Specific Editor 
* Code Improver * Documentation * Graphical Shell 


Compile Execute : 
: Time Time Size 
Sieve 70 2.78 5095 


"Hello, world" 63 N/A 4691 
*Times in seconds. Sieve with register variables. 


$ 1 9 9 A 9 5 For more information, call o, write: 
Megamax, Inc 


Box 851521 
Richardson, TX 75085 


(214) 987-4931 
VISA, MC, COD ACCEPTED 
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Benchmar 


ST-LOG 


ATARI ST USERS!* 
ENTERTAINMENT JACKPOT 
20 BIG PROGRAMS WRITTEN IN ST BASIC 
72 PAGE MANUAL INCLUDED 
ALL FOR ONLY $34.95 


THE VISITOR 

Text adventure with graphics. Your smart 
but odd companion must rendezvous with 
its mother ship. 


BOMB SQUAD 
Text adventure with graphics. Find the ter- 
rorists’ bombs in time. 


ADVENTURE CREATOR 

Write your own adventure games. Exten- 
sive how-to-do-it instructions. A “‘frame- 
work program” is provided so you can fill 
in the details of your own games. The pro- 
gram is analyzed in detail. A powerful, fast 
machine language parser routine is pro- 
vided and explained. BASIC graphics sub- 
routines included. 


THERAPIST 

“Talk to” your ST in natural English and it 
responds like a counselor. Similar to the 
famous ELIZA but “smarter”. 


MANSION 
Text adventure. Find the second Mona 
Lisa. 


3-D TIC TAC TOE 
Challenging complexity 


COLOR MONITOR 
REQUIRED 
(Disk and Manual). 


Only $34.95 ($43.95 Canadian); M.O., 
VISA, MASTERCARD (include expiry). 


*T.M. Atari Corp. 


THE WRITER 

Watch your ST write poetry and prose, 
personalize the vocabulary and charac- 
ters for party entertainment. 


CASINO 

Lose your money at home. 

Includes: Roulette, Blackjack, Craps, 
Cards — Faro, Baccarat, Draw Poker, Slot 
Machine, Wheel of Fortune, Keno. 


OTHELLO 
Beat the computer 


CHECKERS 


A classic 


CRIBBAGE 
The popular card game 


BACKGAMMON 
The ST is aggressive. 


MENTAL 
A great “psychic” illusion. The ST seems 
to possess amazing abilities. 


ANALYSIS 

Convincing ‘personality analyses” — just 
for fun. Mimics such things as ‘‘color anal- 
ysis” machines and explains how they 
work. 3 


CHARGE CARD ORDERS ONLY 
Ph. 800-628-2828 Ext. 635 
MARTIN CONSULTING 
94 Macalester Bay 
Winnipeg, Manitoba 


Canada R3T 2X5 
(204) 269-3234 
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VIP Professional 


Finally 


— A Business Program that Brings 


Lotus 1-2-3° Functionality to Your Atari ST! 


VIP Professional is a state-of-the-art, integrated 
spreadsheet program which brings together a spread- 
sheet, a database and graphing capabilities. Professional 
was modeled after the powerful and best-selling Lotus 
1-2-3® program which dominates the business world 


Worksheet Magic 


Nothing is left out of the workings of the worksheet. Ranges of 
cells can be named for convenience; column widths are variable; 
the screen can be split into two windows; titles can be frozen; 
contents of cells may be copied or moved; the worksheet may be 
altered as a whole or only partially; the list goes on and on. 
Perhaps most important, Professional can use and save Lotus 1-2-3 
files for transfer between computers. 


The worksheet includes over 45 special functions to simplify 
commonly used formulas, including powerful financial functions 
for the internal rate of return, present value, and future value. Of 
course Professional also has all mathematical, trigonometric, table, 
conditional and logical functions. 


Database Power 


The built-in database can handle up to 8192 records, with a 
possibility of up to 256 fields. The records can be searched, sorted 
and analyzed to find your best salesperson or your rarest stamp. 
Sorts can be done using multiple criteria, in ascending and 
descending order. And database functions can be used to do up to 
seven different kinds of statistical analyses of your database. 


Graphs 


The graphing capabilities of Professional are astounding. Not 
only are there six completely different types of graphs available, 
there are tens of ways to manipulate the data, titles, grids, colors, 
legends, keys, and scaling of the size of the graph. 


Macros 


Professional also includes sophisticated macro programming 
commands. With several special macro commands, the user can 
actually program Professional to be dedicated to a specific task 
such as accounting. 


Just Minutes to Learn 


Professional is as easy to use as it is powerful. It comes with a 
user-sensitive tutorial for the newcomer. And help is built right 
into the program. With the handy tutorial, you will be able to 
create professional worksheets in just minutes. 


Introducing Professional LITE™ 


For those of you who do not need the full power of 
Professional, we offer Professional LITE™. Though without the 
macros and the database features, and having a smaller sheet size 
(256 columns by 2048 rows, LITE still packs a powerful punch 
for only $99.95! 











AS: 4-85 


Household Budget for 1985 
Insurance 


$150.00 


Wortgage Car Payments Education Food 


“eb 68 $200.00 $300.00 $250.00 
$201.00 
$202.00 


$203.02 


C 

204.83 
$205.05 
$206.08 
$207.11 
$208.14 
$209.18 
$210.23 
$211.28 


Integrated Spreadsheet Power 


Five Year Stock Portfolio Analysis 
Five Year Summary 


ma Stocks 
Be C)'s 


Ey Expenses 


CTrewas amas 


1981 1992 1983 1984 1985 


Yearly Breakdown 


Easy-to-Use Graphs 


The Power of Professional 
Only $179.95 
Or the Power of LITE 


Only $99.95 


If your dealer is out of stock, order direct. 
money order to the address below, together with $3 for shipping 
and handling. In California add 6% sales tax. COD's and purchase 
orders not accepted. Personal checks will be held for three weeks to 


Send your check or 


clear. 





All prices are subject to change without notice. 


4 132 Aero Camino 
= fi Jt Santa Barbara 
= “if California 93117 
TECHNCLCGIES 


sunt 


(805) 968-9567 


SYSTEM REQUIREMENTS: Amiga with 512K; One disk drive; Monochrome or 
color monitor; Works with printers supported by the Workbench. 
VIP Bocuse Professional, Professional LITE and LITE are trademarks of VIP ecracegs - 


Ci eration 2-3 and Lotus {-2-3 are Eseeieg trademarks of Lotus Development Corp.; Ai 
S20ST, and \Oaost are trademarkds of Alan Corporauon. 


Copyright © 1986 by VIP Technologies Corporation 


Sampler 


Functions from 
ST BASIC 





by James Luczak 





ST BASIC has a command to allow you to perform 
graphic operations—that used to take a lot of involved 
programming —quickly and easily. And it’s fast. We're 
talking about the VDISYS() command. 

The VDISYS() command gives you access to GEM’s 
Virtual Display Interface (VDI) functions. Among oth- 
er things, GEM’s VDI has a full set of graphic func- 
tions to perform all sorts of graphic operations. 
Circles, ellipses, pie slices, rectangles, polygons and 
special effects text are only a few of the many opera- 
tions you can utilize with the VDISYS() command. 


The VDI Sampler program. 

The VDI Sampler has three purposes. First, it con- 
tains the BASIC code required to call many of the 
VDI functions (Lines 3730 through 6340). Second, 
it demonstrates how VDI functions can be used in 
a program. Third, it displays many of the patterns, 
styles and special effects that can be put to use with 
VDI functions. 

All graphics operations used in this program are 
performed with the help of the VDISYS() command. 
Using the VDISYS() command. 

VDISYS() is very easy to use; Figures 1, 2 and 3 
contain all the necessary information to do so. The 
BASIC code required to employ the VDI functions 
is in the VDI Sampler program, Lines 3730 through 
6340. 

I found it easiest to set up the BASIC code for each 


ST-LOG 











function as a routine which can be called with the 
GOSUB command. Whenever you want the function, 
all you have to do is set whatever variables the VDI 
routine currently has to the desired value, then use 
a GOSUB to do the operation. 


VDI COLOR INDEX 
Index Number Color Index Number Color 


Light Red 

Light Green 

Light Blue 

.... Light Cyan 

Light Yellow 
......Light Magenta 


Figure 1, above, contains the COLOR INDEX values 
used by all the VDI functions. Figure 2, below, gives 
the DEFAULT values to which various functions are 
set. 


VDI DEFAULT VALUES 


Default Value 

Low Resolution 6 
_ Medium Resolution 8 — 
. .0 Degree Rotation — 
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Comes complete with 520ST ae MONOCHROME SYSTEM 
computer with modulator, disk Rosai 3 

drive, mouse, logo, Basic, 5 BR ‘ $64900 

1st Word, and monochrome jin 

or color monitor. Bs COLOR SYSTEM 


$79900 


DISK fe ai ATARI 314 |Direct dror MODEM 
10 Meg HARD DRIVE | supPRA MODEM | ‘Moz Double sited 300/1200 Baud 


Bd Lci tz00st$ 1 5900 
=; PRINTERS — 


JUKI 


MSP-25 (132 col. Jeg 4 6090 Letter Quali 


C.ITOH 6100 Letter Qual 5 STAR 
Prowriter 7500... ! 6200 Letter Qual LE i a t SB/SD/SG/SR Series... 


Prowriter 1550P.. i 6300 Letter Quality es Pi Quality. 
Starwriter 10-30. (00 5510 Dot Matrix. ni = peu) cries. 
LEGEND ox rt TOSHIBA 
Homewriter 10, LX80. 808 Dot Matrix 100 cps.. . 1340 (80 column). 

FX85, FX286, RX100 1080 Dot Matrix 100 cps i Okimate 10 (5; Ohi “; P34i (132 column) 
SQ2000, HI80, HS80, 1380 Dot Matrix 130 cps. . P351 (132 column)... 


LQ800, LQ1000 1385 Dot matrix 165 cps. Okimate 20 (IBM 
BLANK DISKETTES 
Cutthroats : sssseeeen OO, ELEPHANT 
Deadline... “$34. Haba Writer $44, (10) 3%” SS $24.99 
H H 
abadex Phonebook. MAXELL 


Habamerge 


Checkminde! “sf t Vo"? 
Mail Room shares qj 0) 3% ss 


= PROFESSIONAL cinal MUSE SOFTWARE (10) 3%” DS s 
inal Wor a fo” ae 2 
A jazzed-up 1-2-3 mets (5) 3%” SS w/Flip’n File.$9.99 


: for your Atari 520ST! AMARAY 
Wishbringer... $29.9! 


$29: igi Disk Tub 312” 
Witness $29: s Dolsness CURTIS Surge Suppressors 
¢ Graphs e $34.99 | CUSP2, Emerald $39.99 


CUSPF2, Ruby 


Ss 1 2900 King’s Quest... rae CUSP1, Diamond $29.99 


Gt oo | CUSP3, Safety Strip.....$19.99 


COMPUTER MAUL ORDER 


CALL TOLL-FREE 1-800-233-8950 Ea 
477 East Third Street, Dept. B706, Williamsport, PA 17701 »> 


POLICY: Add 3% (Minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to clear. For faster delivery 

use your credit card or send cashier's check or bank money order. Pennsylvania residents add 6% sales tax. All prices are subject to change and all items are subject to availability. °=™s@ve 
Defective software will be replaced with the same item only. Hardware will be repaired or replaced at our discretion within the the terms and limits of the manufacturer's warranty. We 

cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. 


— CANADIAN ORDERS — 
1-800-268-3974 1-800-268-4559 1-416-828-0866 = Telex706-218960 


Ontario/Quebec Other Provinces All prices shown are for U.S.A. orders. reo ‘ 
Call the Canadian Office for Can. prices. In Toronto bay err nt ee 


‘ud 


at 





CIRCLE #127 ON READER SERVICE CARD 


VA VDI Functions continued 


Our third figure, on the following page, provides 
a description of most of the VDI functions used by 
the program. Some VDI functions are self explana- 
tory; these are not included in the description. 

The attributes referred to in Figure 3 are VDI func- 
tions that can be used to modify the appearance of 
another VDI function. For example, if you’re draw- 
ing a circle and want it to appear as a filled disk, 
you could use the “fill interior style” function with 
a value of 1 (solid) before drawing the circle. Now, 
every time you draw a circle it will be filled with 
a solid color. 


Using the VDI Sampler. 

The Sampler is written for a low-resolution color 
system. If you don’t have TOS in ROM yet, remove 
all desk accessories and turn buffered graphics off 
before loading the program. 

The Sampler opens with a title page that will re- 
main on-screen for approximately 5 seconds. (If you 
want to keep the title page on for a shorter or longer 
period, change the value in Line 6370 of the pro- 
gram.) 

After the title, the main menu screen will appear. 
At the bottom of this is a menu bar. Use the mouse 
to click on any of the menu options. You'll hear a 
“beep” when you click on a valid option. Each op- 
tion will display its introduction page, with a menu 
bar. Click the mouse on one of the options, and that 
option will be displayed. 

The values which appear on some of the displays 
correspond to those in Figure 3. To return to the main 
menu, click on the Main Menu option located on the 
right of the menu bar. To exit the program, select the 
quit option on the main menu—or click the right- 
hand mouse button. 

I find this a handy program to preview styles, pat- 
terns, special effects, and so forth—before using them 
in a program. The data statements at the end of the 
program contain text (in ASCII form), X- and Y- 
coordinates, and some color information used in VDI 
Sampler. 


James Luczak bought his first Atari in 1980 and has, 
since 1979, written programs in BASIC, C, LOGO, 
FORTH and Action!, plus 6502 assembly. He enjoys 
writing dedicated database programs. 








Listing 1. 
BASIC listing. 
100 'A Y.D.I. ‘SAMPLER FROM ST BaSIC 
110 ‘38eHHERHt by JIM LUCZAK 22HHRRRHE 
120 atl=gb: gintin=peek (att) :gintout=pe 
ek Caltt12) 
130 dim coord(25),char (56) ,m1 (26) 


ST-LOG 


146 aQtiI=-"P OF L ¥Y L I WN E 5" 
aan C22=-"P OF L ¥Y M A R K CE 

160 aSCII="T E KX TT! 

170 aSt4o9="F IF L L P a T T 

E Rk St 

a" aSc5)="P R I MIT IY CE 

1938 fx= 1: fy=22: §x1=304: Fyi1-188: dth=-6 


2308 


cxi- 


2486 


DO TITLE PAGE 
fullw Ziclearw 2 

PUSS wM=1: FisS—i:i fCi=Licx=fxicy-fy: 
fxL:cyi-fyl 

gosub DOSHAPE: wm-2:90S5ub WMODE: pic 


=2:g0sub PCOLOR 


258 


id-6 '5a-2700:ea-908:cx-1i:cy-185:ra 


dx=304 i rady-83 


260 


gosub ELLARCPIE 


278 while rady?48 
a cd a ae Mle Acad Ptsint6 ,rady:vdis 
ys 
90 wend 
See PIlc=1@:gosub PCOLOR 
318 53-900: 0a=2700:CxK=3O4 i rady-s8F 


349 


gosub ELLARCPIE 
while rady>}40 
rady-rady-Z:poke ptsint6,rady:vudis 


ys ti) 


358 
378 


wend 


Pt=S: WM=1: fFis=-1: fsi-O: foi=iicx-152 


:Cy=47 :radx=108 :rady=25 


388 gosub DOSHAPE 

398 rt=Siwm=2: fis=2:fsi=3: foi-3:gosub 
DOSHAPE 

400 rt=Siwm=i: fis=1: fci=i:cy-163:radx= 


425: 


418 


gosub DOSHAPE 
Pt=5:WM=2: Fi5S—2Z: fS5i-19: fci-4:gosub 


DOSHAPE 


436 


Pt=LiwM-1: fis=1: foi=3icx=7O:cy—1ib3 


:rad=26 


449 
450 


gosub DOSHAPE 
Pt=1iwm=2: fis=2: fSi=16: fci=2:gosub 


DOSHAPE 


460 


Ptiiiwm-1: fis-1: fcoi=2:icx=235: gosub 


DOSHAPE 


478 


Pt=1:wM=2: Fis=2:f5i=28: fC i=6:9g05ub 


DOSHAPE 


480 
5808 


we=2:90SuUb WMODE 
tc=15: th=-24: te-4icx=118icy=54:gosu 


b DOTEXT 


518 


tc=5: th=28: te=16:cx=45icy-115:gosu 


b DOTEXT 


526 


tc=8: th-dth: te=4:cx=136:cy=-148:g05 


ub DOTEXT 


538 
KT 


548 
OTEX 


558 
568 
576 
580 
5398 
600 
610 
629 
+4) 
636 
646 
650 
668 
676 
6808 
6308 
788 
718 
738 
746 


Tc=6: ThH=L15:CxK=97:Cy=178:gosub DOTE 
eae Ge D 


gosub TIMER: menu-8:gosub MENLUES 
'--— MAIN PROGRAM LOOP --- 

Poke gintin,3:gemsys (73) 

Poke gintin, 257: gemsys (78) 

poke lei Nei 

while mkey<>?2 

gemsys (79) 

Mx—peek (gintoutt2) : my—peek (gintout 


:mkey =peek (gintoutt6) 


if mkey-1i then gosub CHECKM 
wend 

'--—- CLEANUP AND END --- 
Poke systabt24,0 

Poke gintin,G§:gemsys (78) 
Poke gintin, 256: 9gemsys (78) 
Pt=1i:tc—1i:th-dth: te-8 

gosub DOTEXT 
sound 6,8,86, 
CHECKM: 

if my{i88 or my>189 then return 


§8,60:clearw 2:end 
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M VDI Functions continued 


VDI FUNCTION DESCRIPTIONS 





POLYMARKER — A polymarker is similar to the PLOT command. One or more polymarkers can be dis- 
played simultaneously in different styles and colors. 





a 


BAR — Draws a bar. 


Line 3730 Menu — Marker 
ATTRIBUTES ATTRIBUTE LINE # 
Polymarker Type 3820 
Polymarker Height 3890 
Polymarker Color 3970 


Writing Mode 5000 


NOTE: Each polymarker needs an X- and Y-coordinate. For example, to display two polymarkers, 
you must give the X- and Y-coordinates for each marker, a total of four coordinates. 


POLYMARKER TYPE — Identifies polymarker style. 


Line 5210 Menu — Shapes Item — Bar/Circle 

ATTRIBUTES ATTRIBUTE LINE # 

Fill Interior Style 6080 

Fill Style Index 6150 

Fill Color 6220 

Perimeter Visibility 6290 

Writing Mode 5000 

CIRCLE — Draws a circle. 

Line 5320 Menu — Shapes Item — Bar/Circle 

ATTRIBUTES ATTR. LINE # ATTRIBUTES ATTR. LINE # 

Fill Interior Style 6080 Perimeter Visibility 6290 

Fill Style Index 6150 Writing Mode 5000 

Fill Color 6220 

ELLIPTICAL ARC or PIE — Draws an elliptical arc or pie slice. 

Line 5450 Menu — Shapes Item — Ell.Arc/Pie 

ATTRIBUTES ATTR. LINE # ATTRIBUTES ATTR, LINE # 

Polyline Type 4130 ARC Fill Style Index 6150 PIE 

Polyline Width 4200 ARC Fill Color 6220 PIE 

Polyline End Style 4280 ARC Perimeter Visibility 6290 PIE 

Polyline Color 4360 ARC Writing Mode 5000 ARC/PIE 
Fill Interior Style 6080 PIE 





Line 3820 Menu — Marker Item — Type 
MARKER TYPE VALUE DESCRIPTION MARKER TYPE VALUE DESCRIPTION 
1 Dot 4 Square 
2 Plus Sign S Diagonal Cross 
3 Asterisk 6 Diamond 
POLYLINE — Draws one or more lines simultaneously in different styles, colors, widths and end types. 
Line 4040 Menu — Lines 
ATTRIBUTES ATTRIBUTE LINE # 
Polyline Type 4130 
Polyline Width 4200 
Polyline End Style 4280 
Polyline Color 4360 
Writing Mode 5000 


NOTE: This function will draw an elliptical arc or pie slice, depending which primitive ID you speci- 
fy (Elliptical Are - 6, Elliptical Pie - 7). Angles are referred to in tenths of degrees (0-3600). The 
function draws in a counterclockwise direction. Zero degrees is 90 degrees to the right of vertical, 


NOTE: Each polyline requires four coordinates: X- and Y-coordinates for the starting point of the 
line and those for the line’s ending point. For example, to draw two polylines, indicate two X.Y 
pairs (Line 4060) and provide X- and Y-coordinates for the starting and ending points for each line, 
a total of eight coordinates. 


POLYLINE TYPE — Identifies type of polyline. 


Line 4130 Menu — Line Item — Type 
POLYLINE TYPE VALUE DESCRIPTION POLYLINE TYPE VALUE DESCRIPTION 
1 Solid Line 4 Dash-Dot Line 
2 Long Dash Line 5 Dash Line 
3 Dot Line 6 Dash-Dot-Dot Line 
POLYLINE ENDSTYLE — Identifies end style of polyline. 
Line 4280 Menu — Lines Item — Endstyle 
ENDSTYLE VALUE DESCRIPTION 
« O Squared 
1 Arrow 
2 Rounded 
TEXT — Writes text to any XY coordinate on the display screen. 
Line 4430 Menu — Text 
ATTRIBUTES ATTRIBUTE LINE # 
Text Color 4540 
Text Special Effects 4610 
Text Height 4680 
Text Baseline 4930 
Writing Mode 5000 
NOTE: Characters are referred to by their ASCII value. 
TEXT SPECIAL EFFECTS — Identifies the text style to be used. 
Line 4610 Menu — Text Item — Effects 
SPECIAL EFFECTS VALUE DESCRIPTION SPECIAL EFFECTS VALUE DESCRIPTION 
1 Thickened 8 Underlined 
2 Intensity - Light 16 Outlined 
4 Skewed 32 Shadowed 


NOTE: Any combination of special effects can be used. If, for example, you wanted skewed out- 
lined text, add the values 4 (skewed) and 16 (outline) together, and use the result (20) as the spe- 
cial effects value. 


WRITING MODE — Identifies how subsequent drawing operations will be performed. 


Line 5000 
WRITING MODE VALUE DESCRIPTION WRITING MODE VALUE DESCRIPTION 
1 Replace 3 XOR 
2 Transparent 4 Reverse Transp. 


NOTE: The writing mode specifies the operation performed between the current pixel color and 
the existing pixel color. The action of the writing mode is most easily observed when using the 
text or fil! pattern functions. 


ARC or PIE — Draws an arc or pie slice. 


Line 5070 Menu — Shapes Item — Arc/Pie 
ATTRIBUTES ATTRIBUTE LINE # 

Polyline Type 4130 ARC 
Polyline Width 4200 ARC 
Polyline End Style 4280 ARC 
Polyline Color 4360 ARC 

Fill Interior Style 6080 PIE 

Fill Style Index 6150 PIE 

Fill Color 6220 PIE 
Perimeter Visibility 6290 PIE 
Writing Mode 5000 ARCIPIE 


NOTE: This function will draw an arc or a pie, depending which primitive ID you specify (ARC 
- 2, PIE ~ 3). Angles are referred to in tenths of a degree (0-3600). The function draws in a coun- 
terclockwise direction. Zero degrees is 90 degrees to the right of vertical, with values increasing 


with values increasing in a counterclockwise direction. 


ELLIPSE — Draws an ellipse. 


Line 5580 Menu — Shapes Item — Ellipse 

ATTRIBUTES ATTR. LINE # ATTRIBUTES ATTR. LINE # 

Fill Interior Style 6080 Perimeter Visibility 6290 

Fill Style Index 6150 Writing Mode 5000 

Fill Color 6220 
ROUNDED RECTANGLE and FILLED ROUNDED RECTANGLE — Draws a rounded or filled rounded rec- 
tangle. 

Line 5690 

ATTRIBUTES ATTRIBUTE LINE # 

Polyline Type 4130 Rounded Rectangle 

Polyline Width 4200 Rounded Rectangle 

Polyline Color 4360 Rounded Rectangle 

Fill Interior Style 6080 Filled Rounded Rectangle 

Fill Style Index 6150 Filled Rounded Rectangle 

Fill Color 6220 Filled Rounded Rectangle 

Perimeter Visibility 6290 Filled Rounded Rectangle 

Writing Mode 5000 Rounded/Filled Rounded Rect. 
FILLED AREA — Fills a complex polygon with the specified color or pattern. 

Line 5800 

ATTRIBUTES ATTR, LINE # ATTRIBUTES ATTR, LINE # 

Fill Interior Style 6080 Perimeter Visibility 6290 

Fill Style Index 6150 Writing Mode 5000 

Fill Color 6220 


EXAMPLE: To use this function to fill a triangle, enter 3 for the number of lines (Line 5820). Give 
the X- and Y-coordinates for the starting point, second point and ending point of the triangle. VDI 
will automatically connect the ending point to the starting point, to form a closed polygon. The function 
will then fill the triangle. VDI will not display a form with only one endpoint. 


CONTOUR FILL — Fills an area until it finds the end of the screen or the color specified. 





Line 5890 

ATTRIBUTES ATTRIBUTE LINE # 

Fill Interior Style 6080 

Fill Style Index 6150 

Fill Color 6220 

Perimeter Visibility 6290 

Writing Mode 5000 

NOTE: If you specify a negative value in Line 5930, VDI will search for any color other than the 

seed point. 

FILL RECTANGLE — Fills the rectangular area specified. 

Line 5980 

ATTRIBUTES ATTRIBUTE LINE # 

Fill Interior Style 6080 

Fill Style Index 6150 

Fill Color 6220 

Perimeter Visibility 6290 

Writing Mode 5000 

FILL INTERIOR STYLE — Identifies interior style. 

Line 6080 

INTERIOR STYLE VALUE DESCRIPTION INTERIOR STYLE VALUE DESCRIPTION 
0 Hollow 3 Hatch 
1 Solid 4 User defined 
2 Pattern 


FILL STYLE INDEX — Identifies style index. 


Line 6150 


in a counterclockwise direction. 
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See menu option FILL for example of style indices. 


ST-LOG 





758 gosub CHECKMOUSELOC 

768 if hci--1i1 then return 

7780 sound 1,0,180,4,@0:wave 1 7256,8 
780 if het= AL73 sha aenuce then’ mkey=2 
tretur 

798 if hci=ni/2 then menu-@: ft-@: gosub 
MENUES: return 

808 if menu-@ then menu-hci:gosub MENU 
ES:return 

810 item=hci:gosub ITEMS 

820 return 

840 CHECKMOUSELOC: 

850 mc-O:hc-O:hciri 

860 while mc-8 

870 if mx>= ml Choc) and mx<= mi Chcti) t 
hen meri 

880 if mc-@ then hci-hciti 

890 hc=hc+2:if heodni then mc=i 


wend 
910 if hci> nif2 then hci=-i 
920 return 
946 DOSHAPE: 
958 gosub WMODE:gosub FILLSTYLE: gosub 
FILLINDEX:gosub FILLCOLOR 
968 on rt goto SHAPE1, SHAPEZ, SHAPEI,5H 
APE4, SHAPES , SHAPES 
970 SHAPE1:gosub CIRCLirt-@:return 
980 SHAPE2:gosub BAR: rt-O:return 
9980 SHAPEZ:gosub RECTFILL:rt-@:return 
18906 SHAPE4:gosub FILLA:rt—6:return 
18168 SHAPES: gosub ELLIPS:rt-@:return 
1820 SHAPE6:gosub ARCPIE:rt-@:return 
1846 DOTEXT: 
1856 gosub TCOLOR: gosub THEIGHT:gosub 
TEFFECT 
18960 if rt-i then rt-O8:return 
1870 read n:for dt=@ to n-i:read chart 
dt} :next dt 
1880 qecue GTEXT:return 
1166 INTRO: 
111@ restore INTRODATA 
11260 wme=2:gosub WMODE 
yee Prt=1:tc—4:th=20:te-16:gosub DOTEX 


1148 Se ba ate 2:7"H e lcoknm T o" 
1150 Pt=i:tc=7:th=28: te=4: gosub DOTEXT 
1166 gotoxy 6,7:7° DI 
r 

a Pt=1:tc=-3: th=dth: te-8:gosub DOTEX 


11808 gotoxy 2,10:7"lise" 

1198 rt=i:tc=2:te-16:gosub DOTEXT 

1206 gotoxy 6,10:?7"MOUSE" 

1218 rt=i:tc=9:te-@:gosub DOTEXT 

i728 gotoxy 12,16:2?"to choose from men 
u bar 

1230 rt=i:tc=i:te-16:gosub DOTEXT 

1246 for x=-12 to 16 

1258 gotoxy 17,x:?chr$ (7) ;chr$(2) 

1260 next x:return 

1280 MENUES: 

1290 poke gintin, 256: gemsys (78) 

1300 gosub FINDMENL 

1310 rt=3:i wari: fis=1: fci=L:icx=fx:icy=fy 
rcxi=fxi:cyi=fyi 

14320 gosub DOSHAPE: wm-2:go0sub WMODE 
1338 tc=3:th-dth: te-O:cx-L1:icy-186:if m 
enu=5 then th-=4 

1346 gosub DOTEXT 

1358 read n:ni=n:for x=@ to n-1i 

1360 read mi(x):next x 

1370 read cx2,cy2,fci,fcil, fsii,tc 
138O rt=3iwer-1: Fis=i:cx—-fxicy=fy:cxi=f 
X1i:cyi-176 

1396 gosub DOSHAPE 

1460 if menu-@ then gosub INTRO:goto i 


450 
14180 rt=3:i we=2: fis=2: fci-fcil: fsi-fsil 


SamPle 


ST-LOG 








14280 gosub DOSHAPE 

1430 rt—i:th=28:te-@:gosub DOTEXT 

1448 gotoxy cx2, cy2:7a5 (menu? 

1458 poke gintin, 257: gemsys (78) :return 
1470 FINDMENL: 

1480 if menu-@ then restore MENU@DATA: 
return 

1498 on menu goto MENLU1,MENUZ, MENUS, ME 
NU4, MENUS 

1500 MENUi:restore MENUIDATA: return 
15160 MENUZ:restore MENUZDATA: return 
1520 MENUZ:restore MENUZDATA: return 
1530 MENU4:restore MENU4DATA: return 
1540 MENUS:restore MENUSDATA: return 
i566 ITEMS: 

1578 poke gintin, 256: gemsys (73) 

1588 on menu goto MITEM1, MITEM2,MITEM3 
,MITEM4,MITEMS 

i590 NITEM on item goto ITEMiA, ITEMIB 
’ 

1666 MITEM2Z:on item goto ITEMZ2A, ITEM2B 
1610 MITEMZ:on item goto ITEMZA, ITEMIB 
, Ll TEMSC 

1620 MITEM4:on item goto ITEM4A, ITEM4B 
16230 MITEMS:on item goto ITEMSA, ITEMSB 
,LTEMSC,ITEMSD 

16586 CLEARITEM: 

1660 cx=fx:cy=fyrcxi=fxi:cyi-176 

1670 rt=3:we-i1:fis-i:gosub DOSHAPE 
1680 wm-2:gosub WMODE 

1698 cx=188:cy—3I5:gosub DOTEKT 

1788 cx-18:cy-S8:return 

1726 ITEMiIA: 

17380 restore ITEMLADATA 

1740 tc—6:th=8:te-16: fci-1i:gosub CLEAR 


1758 tc=3:th=dth: te-@:plc=2:gosub PCOL 


1768 for x=1 to 6:pIt=x 

1778 baa gage aoeue DOTEXT:cy=cytsS 
or y=i to 2 

1798 n=Z:coord(O)-18:coord(id=cy:coord 
(23 =38O:coord(II=cy 

1860 gosub PLINE: cua cyts 

1818 next y:cy-cyt5S:inext x 

1820 plt=i:gosub PTYPE 

1830 poke gintin, 257: gemsys (78) :return 
1850 ITEMiB: 

1860 restore ITEMIBDATA 

1870 tc=5:th-8:te-16: fci-i:gosub CLEAR 


1880 tc=2:th=dth: te=-8:plc=3:gosub PCOL 


1890 for x-1 to 7 step 3 

19080 plw-x:gosub PWIDTH:gosub DOTEXT 
1918 cy-cyt5S:for y-i to 3 

1920 n=2:coord(@)}=-18:coord(1)=cy:coord 
(23-308: coord(3I=-cy 

1938 gosub PLINE:cy=cytié 

19480 next y:cy-cytx 

1958 next x:plw-i:gosub PWIDTH 

1960 poke gintin, 257: gemsys (78) :return 
1980 ITEMiIC: 

1990 restore ITEMICDATA 

2000 tc=—@:th-8: te-16: fci-i:gosub CLEAR 


2016 tc=8:th=dth: te-8:plc=6:gosub PCOL 


OR 

2020 for x-@ to 2 

20380 plsb-x:plse-x:gosub PSTYLE:gosub 
DOTEXT 

2048 cy-cyt?7:for y-1 to 2 

2058 n=2: a utaisce coord (id=cy:coord 
(23 =388: coord (33=c 

2060 gosub PLINE: cus cytié 

2070 next y:cy=cyt? 

2088 next x:pilsb-@:plse-@:gosub PSTYLE 
2090 poke gintin, 257: gemsys (78) :return 
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WORD FOR WORD” Ye, 


A crossword game for the ATARI ST! 


You can play WORD FOR WORD on a game 
board that looks like this, or you can create your 
own! Drop-down menus make it easy to design 
the shape, size, and layout of the 
game board. Other features let 
you assign letter values, select a 
skill level, and challenge words. 

When the game board is the 
way you want it, invite up to three 
friends to play. And you can 
include Alphie (your computer) in the game. He 
has a 20,000 word vocabulary that is sure to chal- 
lenge and improve your skills. The choice is 
yours and the options are almost endless! 


To Order q 
Contact your Atari ST dealer, or Bay View Software 
Ose ids tte A pat as 177 Webster St., Suite A-295 
shipping and handling. ‘ ; 
California residents add $2.40 Monterey, Calif. 93940 
sales tax. ($45.85) (408) 373-4011 


MasterCard or Visa accepted 





Works with color (medium resolution) or monochrome monitor. 
WORD FOR WORD is a trademark of Bay View Software 





CIRCLE #128 ON READER SERVICE CARD 






Regent 


Regent Word is a fast, reliable, 
sophisticated, and easy to learn word 
processor for the Atari ST! Multiple 
printer drivers, on-line help menus, and 
communications utilities are included. 










REGENT SPELL 
A 30,000 word Spelling Checker for the 
Atari ST! Shows misspelled words in 
context. Insert/Delete words in 
dictionary. 10 Suggested Spellings. 
Windowing and Mouse Controls. Type in 
your own spelling. 


REGENT SOFTWARE 
7131 Owensmouth, Suite 45A 
Canoga Park,.CA 91303. 
(818) 883-0951  . 


ATARI STM 11 


CIRCLE #129 ON READER SERVICE CARD 
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4 VDI Functions continued 


2116 ITEMZA: 
21280 restore ITEM2ADATA 
“as8 tc=2: th-8: te-4: fci-6:gosub CLEARI 


2146 tc=7: th=dth: te-8:pmc=4:gosub PMCO 


2158 read nin2=n: for x=@ to (n*®2)-1 
2166 read coord(x):next x 

2170 for x=i to 6:pmt=x:gosub PMTYPE 
2186 cy-cyti@:gosub DOTEKT:cy-cyt6 
2198 coordtid=cy:coord(3)=cy:coord(5)= 
Se coord(7)}=cy 

2268 n=n2: phate geht cy-cyt4:next x 
2218 pmt=i:gosub PMTYP 

22206 poke Sintiniger gemegs (eye return 
2240 ITEM2B: 

2258 restore ITEM2BDATA 

2260 tc—6:th-8:te—4: fci-4:gosub CLEARI 


aran tc=16: th=dth: te-@:ipmc-S:gosub PMC 
2280 read n:for x-6 to n-i 

2296 read coordiCx}) inext x:cy-46@ 

2300 for x=1 to S:cy=-cyté:gosub BDOTEXT 
:Cy=cyts 

2316 for y=@ to S:ipmt=ytitgosub PMTYPE 
2328 n=1: coord (@)=coordi ly) :coord(1)=c 


¥ 

Ree PmMh=x¥18:gosub PMHEIGHT:gosub PMA 
2348 next yicy=cyt4t (x¥3) inext x 

2358 pmh-1:gosub PMHEIGHT: pmt=1:90Sub 

PMTYPE 

2368 poke gintin, 257: gemsys (78) :return 
2380 ITEMZA: 

2398 restore ITEMZADATA 

2466 tc=2:th=8: te-4: fci=8igasub CLEARI 


2416 tc-i:te-8 

2420 for x=4 to 12 step Z:icy=cytsS 

2438 th=dthicx=18:gosub DOTEXT 

2440 Char (03-86: char (1)=-68: char (23-72: 
char (33-32: char (49-83: char (53-65 

2456 char (6)=77: char €7)=88: char (83=76: 
char (93-693: char (18) =82 

2466 th=x:gosub THEIGHT :cx-128:n-11:90 
Sub GTEXT 

2476 cy—cyt(x#®I) inext x: th-dth:gosub T 
HEIGHT 

2486 eee PAN TiNs EZ LARRSUS CERI Pe REEN 
2500 ITEMIB: 

2518 restore ITEMIBDATA 

Peres tc=4: th=8: te=4: fcoi-i1i:gosub CLEAR 
aes Pt=i:tc=7: th=dth: te-@:gosub DOTEX 


2540 for x-=1i to 4:read tbhl,cx,cy,n 
2558 for xi-=@ to n-Liread char (xi} inex 
t xi:gosub TBASE 

2568 for y=1 to I:gosub GTEXT 

2578 if x=i then cy=cytis 

2580 if x=2Z2 then cx=cxtid 

2590 if x=3 then cy=-cy-16 

2606 if x=4 then cx-cx-18 

2610 next yinext x:tbhl-@:gosub TBASE 
2620 poke gintin,257:gemsys (78) :return 
2646 ITEM3C: 

2650 restore ITEMICDATA 

Bese tc=6: th-3:te-4: fci-=18:gosub CLEAR 
2678 rt=i:tc=4:th-8:te-8:gosub DOTEXT 
2680 for x=68 to Giread te,cx 

2696 gosub DOTEXT:cy-cyt26 

2766 next x:te-@:gosub TEFFECT 

2710 poke gintin,257:gemsys (78) :return 
2730 ITEM4A: 

2740 fCi-6: fcii-=i:gosub SUBREFRESH 
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2750 if ft=@ then ft=1: fisi=3: fsii=-12 
27680 fsii-fsiiti 

2778 a eee: and fisi=3 then fisi-2 
:fsiit ="PATTERN':c$="24" 

2786 it fSi1>24 then fsiiri:fisi-3:tl= 
10:b5="HATCH':cS="12" 

2798 goto SUBREDRAW 

2810 ITEM4B: 

2820 fci-6:fcii-i:gosub SUBREFRESH 
2830 aif Ft-8 then fFt=1: fisi=2: fsiir-1i 
2840 fSiil-fsii-1 

2850 aif f5i141 and fisi=3 then fisi=-2: 
f511=24:71=9:b5="PATTERN' :c$="24" 

2860 if fSi1<i and FisSi=2 then fisi=3: 
f5i1=12:71=10:b5="HATCH":cS="12" 

2878 goto SUBREDRAN 

2890 SUBREFRESH: 

2900 cx=fx:cy=fy:cxK1=152:cyi=176 

23918 rt=3:iwm-1:fis-i:gosub DOSHAPE 
2928 cCx-i53:cxi-I94 

2930 rt=3ifci-fcii:gosub DOSHAPE 

2948 return 

2968 SUBREDRANW: 

2970 CK=FXICKALA5S2ZIrtio3yiwm=2: fsi-fsiit: 
fis=fis5i:fci=2:gosub DOSHAPE 

2980 CKI-ASZICKL[IOdirt—IT: Fsi-fsili:fis= 
fisi: fci-=5S:gosub DOSHAPE 

29980 wm=1:gosub WMODE:rt=1:tc-1:th-dth 
ste-@:gosub DOTEXT 

3000 gotoxy t1,3:7bS;fsi" of "cS 

3010 poke gintin, 257: 9emsys (78) :return 
3836 ITEMSA: 

30480 restore ITEMSADATA 

3050 fis-=i:for yri to 2:read fci,n 
3860 for xi-8 to (n¥®2})-i:read coord(xi 
Jinext xi 

3070 rt=4:gosub DOSHAPE:next y 

3880 f15=2:rad=40:5a-0:e2a-908 

3090 for x=i to 4:read plc, fci,f5i,cx, 
cy,cxi,cyl 

3186 gosub PCOLORirt=6:id=2:gosub DOSH 


3110 cx=cxi:icy=-cyi 

3128 rt=6:id=3:gosub DOSHAPE 

$3138 Sa—Sat9OG:ea-eatIOBi next x 

3140 plc=i:gosub PCOLOR 

3150 n=2:for x-=1 to 4:for y-8@ to 3 
che read coord (y) :next y:gosub PLINE: 
next x 

3178 rt=i:tc=i:th=4:te-8:gosub DOTEXT 
31860 for x=i1 to 8:read cx,cy:gosub DOT 
EXT:next x 

3198 we=2:g0s5ub WMODE :rt=1:tc-7:th-dth 
:te=8:gosub DOTEXT 

3208 gproxy 18,1: 7™ARC'S": gotoxy 18,73: 
2"TD oo 

3210 rt=i:tc=3:gosub DOTEXT 

3228 gotoxy 11,13: 2?"PIE'S":gotoxy i1,1 
5:2?"Ip 3 

3230 poke gintin,257:gemsys (73) :return 
3250 ITEMSB: 

3266 restore ITEMSBDATA 

3270 fci=4:ifcii-Li:gosub SUBREFRESH 
3280 we-i:gosub WMODE:cyi-17@: fis=2 
3290 for x=1 to G:read fCi,fSi,Cx,CcCy,C 


33080 rt=2:gosub DOSHAPE:next x 

33180 rad=26:for x=1 to 4:read fci,f5i, 
cx,cy 

3320 rt=i:gosub DOSHAPE:next y 

33308 rt—Lirad=4O: fis=3: fsi-I: foi-=Licx= 
228:cy-1089 

3340 gosub rites wWH-2:90SUb WMODE 
3350 rtr=i:tc=s: rte=i6: 905uUb DOTEXT 
3368 gotoxy 6, iftsg aR" 

3370 rtr=i:te= a: gosub DOTERT 

33868 gotoxy 19,1:7"%C IR CLE 5" 

33798 Poke gintin, 257: gemsys (78) :return 
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3410 ITEMSC: 

3420 restore ITEMSCDATA 

3430 CKIFXICY— Fy: cKL=~IJO4icyi=39 

zene rt=3iwe-1: fis-1:fci-i:gosub DOSHA 
3458 cy-1080:cyi-176 

3460 rt=3:fci-O:gosub DOSHAPE: id-6 
3470 wm-=2:go0sub WMODE:rt=1:tc-@:th-dth 
:te=8:gosub DOTEXT 

3480 n=1:Cy1=27 :cy2-95:cyI-b5:ry-b8 isa 
1=1888:ea1-8:1d-6 

3498 Sa-Sal:ea-eail:cx=1i5S:cy-cyiiradx-? 
irady—ry 

3500 for x=2 to iS:read char (8) 

3518 if id=? then f5i=x:fci=x:gosub FI 
LLINDEX:gosub FILLCOLOR 

3520 if id-6 then plc=x:gosub PCOLOR 
3538 gosub ELLARCPIE 

3548 eats =CXICX=CxX-Iicy-cys:gosub GTEXT 
1c xX=cxX 

35508 if Sa-sSail then sa-eal:ea-sal:icy=c 
y2 else Sa-Sail:ieateai:cy=cyi 

Es ASS Si ania Xiif id=? then goto 
3578 tc-i:gosub TCOLOR: fis=2:gosub FIL 
LOTYLE 

3580 Sai-i350:ea1-450:ry=JOicyi=-ilIaicy 
2r=AIBi:cy3-158:id-7: goto 3499 

3596 cCx=5:Cy=27:tc—8:th-4:te-8:go5ub D 
OTEXT 

3686 cy-185:tc=1i:gosub DOTEXT 

36168 poke panties 257: gemsys (78) :return 
3638 ITEMSD 

3640 restore ITEMSDDATA 

3658 tc=2:th-8:te-16: fci-i:gosub CLEAR 


3660 cCx=152:cy-105 i: radx-158 :rady-65 
3670 for x-i to 18 

3680 rt=5: fis=1:fci=1:gosub DOSHAPE 
3690 rt=5: fis=2: fsi=x:fci-x:gosub DOSH 


37808 radx—=radx-18:rady-rady-S:inext x 
3716 poke gintin, 257: gemsys (78) :return 
3730 PMARKER: 

3748 poke contrl,?7:'OPCODE 

3758 poke contrit2,n: "Number of marker 


3760 poke contrit6,8 
3778 for Ip=8 to (n¥2)-1: "Enter coordi 


3780 poke ptsintC1p¥2) ,coord (ip) 
3798 next Ip 

3880 vVdisys(i)d ireturn 

3820 PMTYPE: 

383@ poke contrl!,18: ‘OPCODE 

3840 poke contri1+t2,6 

3650 poke contri1t6,1 

3860 poke intin,pmt: ‘Marker type 
3870 vdisysti)d :return 

3890 PMHEIGHT: 

33986 poke contr1,19: ‘OPCODE 

3916 poke contrilt2,1 

3920 poke contrit6,86 

3930 poke ptsin,6 

3348 poke ptsin#2, pmh: ‘Marker height 
39508 vdisys(1) :return 

3378 PMCOLOR: 

3986 poke contr1,26:'OPCODE 

3998 poke contritz,6 

4900 poke contrit6,1 

4010 poke intin,pmc:'Color index 
4820 vdisys{1) :return 

4049 PLINE: 

4950 poke contr!,6: 'OPCODE 

4866 poke contrit2,n: ‘Number of H,¥ Ppa 
irs in line 

46070 poke contrl1t6,8 

4680 for Ip-8 to (n¥2}3-1: "Enter coordi 
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1938 pot 
Poke ptsint(1p*2) 
4100 next i P ,Coord{lip) 
vdisys (i) :re 
4130 PTYPE: ahaa 
4140 poke contrl,15: ‘OPCODE 
4150 poke contrl+2,@ 
ree eens contri1t6,i 
Poke intin,p1t:'Polyline type 
4180 vdisysti): 
4206 PHIDTH: yexere 
42168 poke contrl1,16: ‘OPCODE 
42260 poke contrl+2,1i 
422360 poke contrl1t6,8 
4246 poke ptsin,plw:'Polyline width 
4250 poke ptsint2,6 
4260 vdisys(i) :return 
428@ PSTYLE: 
4290 poke contr1,168: "OPCODE 
4300 poke contrl1+2,6 
4310 poke contrl1+6,2 
4320 poke intin,plSb:'End style for be 
gining of line 
433@ poke intint2,plse:'End style for 
end of line 
43468 vdisys (i) :return 
4360 PCOLOR: 
4376 poke contrl,17:'OPCODE 
4380 poke contrl1+2,8 
4396 poke contrit6,1i 
pri Poke intin,plc:'Polyline color in 
4410 vdisys Ci} :return 
4430 GTEXT: 
444@ poke contrl,&:'OPCODE 
4456 poke contri+t2,1i 
44668 poke contrl+6,n:'Number of charac 
ters to display 
4476 for 1p=8 to n-1:'Enter text to di 
SPlay Cin ASCII) 
4480 poke intint(1p*2},chartlp) 
4490 next Ip 
pipes pose ah ghar coordinate 
Poke ptsin cy:'Y coordinate 
4520 vdisys (1) ireturn 
4546 TCOLOR: 
43550 poke contrl1,22: 'OPCODE 
4566 poke contri+t2,@ 
4570 poke contrl1t6,1 
4586 poke intin,tc:'Text color index 
43596 vdisys (i) :return 
4616 TEFFECT: 
4620 poke contrl1,106: 'OPCODE 
4630 poke contri42,6 
4640 poke contri+t6,1 
4650 poke intin,te:'Text effect word 
4660 vdisys(i) :return 
4680 THEIGHT: 
4690 poke contrl,12:'OPCODE 
4700 poke contrl1+2,1 
47160 poke contrl1+t6,6 
47260 poke ptsin,®@ 
4730 poke ptsint2,th: "Character height 
4746 vdisys (i) 
4750 charw-peek (ptsout}: ‘Character wid 


4766 charh-peek (ptsoutt2) : ‘Character h 


47760 cellw-peek (ptsoutt4):'Cell width 
4780 cellh=peek (ptsoutt6):‘'Cell height 
4796 return 

4816 THEIGHTP: 

4820 poke contrl1,167: 'OPCODE 

4836 poke contrl1+2,8@ 

4840 poke contrl+t6,1 

4850 poke intin,th:'Cell height 

4860 vdisys (1) 
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nga Charw-peek (ptsout) :'Character wid 
4380 charh-=peek (ptsoutt2):'Character h 


4890 cellw-peek(ptsoutt4):'Cell width 

4960 cellh=peek (ptsoutt6):'Cell height 

4918 return 

4930 TBASE: 

4946 poke contrl,i3:'CPCODE 

4950 poke contrit2,9@ 

4968 poke contri1t6,1 

4976 poke intin,tbl:'Baseline angle 

4980 vdisys (i) :return 

5866 WMODE: 

5816 poke contrl,32: 'OPCODE 

5026 poke contri1+t2,6@ 

5036 poke contrlt6,1 

5040 poke intin, wm: 'Writing mode code 

50580 vdisys (i) :return 

58670 ARCPIE: 

5680 poke contrl1,1i1: 'OPCODE 

5090 poke contrit2,4 

5166 poke contr1t6,2 

5116 poke contr1ti8,id: "Primitive ID 
Z=ARC 2=PIE 

5120 poke intin,sSa:'Start angle in ten 
ths of degrees (@-3666) 

5130 poke intint2,ea:'End angle in ten 
ths of degrees (6-368606) 

5146 poke ptsin,cx:'X coordinate of ce 
nter point 

51568 poke ptsint2,cy:'Y coordinate of 
center point y 
5160 for lIp-4 to 18 step 2:poke ptsint 

ip,@:next Ip j 

5176 poke ptsinti2,rad: ‘Radius 

51860 poke ptsinti4,6 

5198 vdisys(1) :return 

5218 BAR: 

5220 poke contrl,i1: ‘OPCODE 

5230 poke contrl1+t+2Z,2 

5246 poke contrit6,6 

5256 poke contr1t+i@,i:"Primitive ID 


5266 poke ptsin,cx:'H coordinate of ba 
r 
5276 poke ptsint2,cy:'Y coordinate of 


52860 poke ptsint4,cxi:'X coordinate of 
bar diagonally opposite 

5290 poke ptsint6,cyi:'Y coordinate of 
bar diagonally opposite 

5360 cP ed aig 

5326 CIRCL: 

5330 poke contrl,ii1: 'OPCODE 

5346 poke contr1+2,3 

5350 poke contrit6,8 iy fs 

5360 poke contri+i0,4:'Primitive ID 

4=CIRCLE 

5370 poke ptsin,cx:'X coordinate of ce 

nter point 

5380 poke ptsintZ,cy:"Y coordinate of 

center point 

5398 poke ptsint4,®6 

5406 poke ptsint6,8 

5410 poke ptsinté,rad: ‘Radius 

5426 poke ptsintié,®@ 

54380 vdisys (i) :return 

5450 ELLARCPIE: 

5460 poke contrl1,11: ‘OPCODE 

5478 poke contri1t+2,2 

5486 poke contr1t6,2 

5490 poke contr1t+iG,id: ‘Primitive ID 
6-E11.A@€RC 7=EI11.PIE 

5586 poke intin,Sa:‘Start angle in ten 
ths of degrees 

5516 poke intint2,ea:'End angle in ten 
ths of degrees (86-3666) 
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5520 poke ptsin,cx:'X coordinate of ce 
nter point 

5530 poke ptsintZ,cy:'Y coordinate of 
center point 

5546 poke ptsint4,radx:'Radius of H ax 


5558 poke ptsint6,rady:'Radius of Y ax 


5568 vdisys (i) :return 

5580 ELLIPS: 

5590 poke contr1,11: 'OPCODE 

5600 poke contri1t2,2 

5618 poke contri1t6,6 

5620 poke contr1ti8,5:'Primitive ID 
S-Ellipse 

56308 poke ptsin,cx:'X coordinate of ce 
nter point 

5640 poke ptsint2,cy:"Y coordinate of 
center point 

res Poke ptsint4,radx: ‘Radius of K ax 


5660 Poke ptsint6,rady:'Radius of Y ax 
is 

5670 vdisys(i):return 

5696 RRECT: 

5700 poke contrl1,11: 'OPCODE 

5718 poke contri1tz, 4 

57280 poke contrilt6 

5738 poke contritib. ids ‘primitive ID 
B=Rounded rect 93=Filled 

5740 poke ptsin,cx:'HK coordinate of re 
ctangle 

5750 poke ptsint2,cy:'Y coordinate of 
rectangle 

5760 poke ptsint4d,cxi:'X coordinate di 
agonally opposite 

5778 poke ptsint6,cyi:'Y coordinate di 
agonally opposite 

5788 vdisys(i) :return 

5806 FILLA: 

5816 poke contrl,3: 'OPCODE 

5820 poke contrl+2,n:'Number of lines 
in ploygon 

5830 poke contrl1t6,0 

5840 for Ip-@ to (n*¥®2)3-1:'Enter coordi 
nates 

5858 oe io) et ees ,coordtip) 

5866 next 

5870 vdisys(1) :return 

5890 CONTOUR: 

5988 poke contrl!,1i102: 'OPCODE 

5910 poke contrl+2,1 

5920 poke contrl1t6,1 

5930 poke intin, cc: Color index defini 
ng contour 

5340 poke ptsin,cx:'X coordinate of sa 
trting point 

5950 poke ptsint?,cy:'¥ coordinate of 
Satrting point 

5960 vdisys (1) :return 

5980 RECTFILL: 

5990 poke contrl!,114: 'OPCODE 

6800 poke contri1t2z,2 

6016 poke contrl1t6,@ 

6020 poke ptsin,cx:'X coordinate of re 
ctangle 

6030 poke ptsint2,cy:'"Y coordinate of 
rectangle 

6046 poke ptsint4,cxi:'X coordinate di 
agonally opposite 

6050 poke ptsint6,cyi:'¥Y coordinate di 
agonally opposite 

6060 vdisys(1) :return 

6686 FILLSTYLE: 

6090 poke contrl1,23: 'OPCODE 

6100 poke contr1+2,6 

6110 poke contrl1t6,i 
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6126 poke intin, fis5s:'Fill interior sty 
le code 

6130 vdisys(i) ireturn 

6156 FILLINDEX: 

6160 poke contrl1,24: 'OPCODE 

6176 poke contritz,®@ 

6180 poke contrit6,1 

6198 poke intin, f5i:'Fill style index 


6200 udisys (1): return 

6220 FILLCOLOR: 

6238 poke Contel, 25: ‘OPCODE 

6249 poke contr1+2,@ 

6258 poke contri+6,1 

6266 poke intin, fci:'Fill color index 

6278 vdisys (1) :return 

6290 PERMU: 

6300 poke contr1,104: 'OPCODE 

6310 poke contrl+2,@ 

6328 poke contri1+t6,1 

6330 poke intin,pv: ‘Perimeter flag @= 

Invisible 1=Visible 

6348 vdisys (i) :return 

6360 TIMER: 

6370 poke gintin,5000:'5 Second wait 

6380 poke gintintz,® 

6398 gemsys (24) : ‘OPCODE 

6408 return 

6419 '--- PROGRAM DATA --- 

6448 INTRODATA: 

6450 data 5,86,32,68,32,73 

6468 data 15,85, 32,65,32,77,32,80,32,7 

6,32,69,32,82 

6470 data 4,70,82,79,77 

6459 data 11,65,32,78,32,65,32,76,32,7 

6490 data 9,67,79,77,80,85,84,73,78,71 

6510 MENUODATA: 

6528 data 34,76,7%, 73, 69, 32,77,65,82,7 

5,69,82,32,84,69,38 

6530 data 78 73,7 62584 537 83,72,65,80,6 

9,83,32,32, ai,e $57 84 

6540 data 12, $35. 42,88,98,128,138,168 

O98, 224. 250,2 

6550 data @,0,5,0,6,8 

6560 MENUADATA: 

6570 data 31,84,89,80,69,32,87,73,68,8 

4,72,32,69,78,68,83 

6580 data 84,89,76,69,32,32,32,77,65,7 

3,78,32,77,69, 78,85 

6590 data 8,0,32,42,80, 90,152,186, 256 

6600 data 5,8,2,3,9, 

6610 MENUZDATA: 

6620 data 23,84,89,80,69,32,72,69,73,7 

1,72,84,32,32,32 

6630 data 77,65,73,78,32,77,69,78,85 

6640 data 6,0,32,42,88,122,192 

6650 data 2,8,6,4,10,4 

6660 MENUZDATA: 

6670 data 33,83,73,98,69,32,66,65,83,6 

9,76,73,78,69,32 

boa0 data 69,78,70,69,67,84,83,32,32,3 
77,65,73,78,32,77,69,78,85 

2650" data $,0,32,42,104,114,168, 202,27 


2 
6700 data 12,8,3,7,12,2 
6710 MENU4DATA: 

6720 data 25,78,69,88,84,32,80,82,69,38 
6,73,79,85,83,32, 32,32 

6730 data 77,65,73,78,32,77,69,78,85 
6740 data 6,0,32,43,104,130,200 

6750 data 2,8,11,1,21,4 

6760 MENUSDATA: 

6778 data 50,65,82,67,47,88, 73, ,89,32,6 
6,65,82,47,67,73 82, 67,76,69 

6780 data 69,76, 76,46,65,82 é5 2 47,88,7 
3,69,32,69,76,76,73, et 83, e5° 35 
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6730 data 32,32,77,65,73,78,32,77;,69,7 
a 
6800 data 10,0,43,50,109,116,181,188,2 
29,248,301 
6810 data 4,8,10,4,20,5 
6830 ITEMLADATA: 
6840 data 10,76,73,78,69,32,84,89,80,6 
ed 
6856 data 6,84,89,80,69,32,49,6,84,89, 
80,69, 32, 58, 6,84,89,80,69,32,51 
6860 data 6,84,89,80,69,32,52,6,84,89, 
0-69-3253. 6,84,89,80,69,32,54 
6876 ITEMIBDATA: 
6880 data 11,76,73,78,69,32,87,73,68,8 
s ’ 
6890 data 7,87,73,68,84,72,32,49,7,87, 
68,84,72,32,51 
60 data 7,87,73,68,84,72,32,53,7,87, 
a3. 68,84,72,32,53 
6910 ITEMiCbATA: 
6920 data 9, 69, 78, 68,83,84, 89, 76,69,83 
6930 data 16 68,83,84 76, 63, z 
2,48,18,69, 78, 688. 735° 84,35, 46° e5/8 
6540 data 10,69,78,68,83,84,89, 56° é9, 3 
a 
6950 ITEM2ADATA: 
6960 data 12,77,65,82,75,69,82,32,84,8 
, 80,69, 83 
6590 data 4,75,55,125,55,200,55,275,55 
6980 data 6, 84, 89,80,69,32,49,6,84,89, 
80,69,32,50,6,84,89,80,69, 32,51 
6950 data 6, 4°39. 86,65,32,52,6,84,89, 
80,69,32,53,6,84,89,80,69, 32,54 
7060 ITEMZBDATA: 
7010 data 13,77,65,82,75,69,82,32,72,6 
9,73,71,72,84 
7620 data 6,75,115,155,195,235,275 
7830 data 9,72,69,73,71,72,84,32,49,48 
,9,72,69,73;71,72,84,32,50,48 
7040 data 9,72,69,73,71,72,84,32,51,48 
,9,72,69,73,71,72,84,32,52,48 
7050 data 9,72,69,73,71,72,84,32,53,48 
7060 ITEMSADATA: 
7070 data 9,84,69,88,84,32,83,73, 90,69 
2080 data 11,84,69,88,84,32,83,73,90,6 
2 , 
2690 data 11,84,69,88,84,32,83,73,90,6 
4 
2 a 
2ige data 11,84,69,88,84,32,83,73, 90,6 
? ’ 
7110 data 12,84,69,88,84,32,83,73,98,6 
9,32,49,48 
zize data 12, ,84,69,88,84,32,83,73, 98,6 
4 
7136 ITEMZBDATA: 
7146 data 8,66,65,83,69,76,73,78,69 
2150 data 79,118, 55,10, 66,65, 83,69, 76,7 
, 78,69 48 
160’ data “388, 50,150,12,66,65,83,69,76 
,73,78,69,32, 748 
3176 data see. 500,150,13,66,65,83,69, 
76,73,78,69,32,49,56,48,48 
7180 data 2706,250,55,13,66,65,83,69,7 
6,73,78,69,32,50,55,48,48 
7198 ITEMSCDATA: 
7200 data 8,32,69,70,70,69,67,84,83 
7210 data 6,860,10,48,32,32,32,78,79,82 
177,65, 76 
7226 data 1,80,11,49,32,84,72,73,67,75 
,69,78,69,68 
7230 ante 2,80,11,50,32,73,78,84,69,78 
,83,73,84,89 
7240 data 4,75,10,52,32,32,32,83,75,69 
ta 
5250 data 8,77,12,56,32,85,78,68,69,82 
76,73,78,69,68 
5266 data 16,75,11,49,54,32,79,85,84,7 
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6,73,78,69,68 

7270 data 3$2,75,11,51,50,32,83,72,65,6 
&,79,87,69,68 

7280 ITEMSADATA: 

7290 data cod | reg oe) oe Ea 

7366 data oe »304,22,304,176,1,176 
7316 data 7,6,5,98, 76, 248,115,2,5,16,8 
8,70,238, 18 

7320 data 1,1,19,80,88,236,125,4,3,7,9 
6,88,248,125 

7336 data 85,360,85,120,35,75,135,75,23 
9,75,235,167,185,1280,285,128 

=a data ‘ect aa" re 48,76,28,3,57,48,48 


27 4.49 
536 a o3e 6538 £88, 55,48,48 
7360 atk 285, ios, 1,48,226,73,3,57,48, 
48,155,122,4,49,56,48,48 
7370 data 222,175,4,50,55,48,48 
5350 data 1,25.47,50,47 70 

ata ,17,50,47,0,8,52,70,77,5 

,24,82,98,102 
7406 data 2,19,107,110,122,6,16,127,13 
@,137,3,10,142,158,147 
7418 data 2,160,182, 62,4,21,274,62,7,12 
, 182,156,108, 24,274,156 
7420 ITEMSCDATA: 
7430 data 69,76,76,73,80,84,73,67,65,7 
6,32,65,82,67 
7440 data 69,76,76,73,80,84,73,67,65,7 
6,32,80,73,69 
7450 data 4,73, 68 ,32,54,4,73,68,32,55 
7460 ITEMSDDATA 
7470 data 9,32,32,69,76,76,73,80,83,69 


ST-CHECKSUM DATA. 
(see page 63ST) 


190 data 388, 683, 932, 753, 148, 62 
®, 78, 47, 401, 399, 4433 

300 data 639, 501, 2, 245, 356, 514, 
241, 775, 73, 32, $378 

318 data 872, 504, 231, 765, 63, 7841 
, 322, 923, 144, 40, 4645 

430 data 616, 312, 25, 999, 27, 741, 
904, 961, 250, 234, 5869 

540 data 608, 858, 532, 619, 882, 56 
5, 249, 719, 454, 953, 6439 

640 data 66, 165, 555, 612, 882, 203 
, 123, 894, 390, 370, 4266 

750 data 195, 93, 10, 582, 896, 462, 
212, 350, 409, 193, 3402 

860 data 790, 585, 87, 655, 68, 155, 
352, 537, 944, 424, 4589 

3970 data 639, 421, 63, 740, 832, 816 
, 519, 75, 773; 78, 4956 

1080 data 112, 386, 911, 689, 47, 55 
bios , 231, 834, 4750 

4196 data 306, 79, 229, 609, 294, 97 
, 958, 393, 475, 849, 4275 

1306 data 409, 163, 743, 703, 261, 7 
78, 791, 31, 290, 277, 4446 

1408 data 99, 869, 273, 313, 706, 98 
3, 802, 871, 147, 827, 5896 

i510 data 831, 835, 839, 843, 368, 8 
56, 837, 857, 978, 876, 8114 

1626 data 992, 833, 890, 114, 416, 7 
10, 868, 954, 381 243 
1748 data 439, 27 75. "960, 44, 36, 947 
, 993, 538, 849, 993, 6074 

1850 data 390, 87, 444, 281, 879, 99 
2, 959, 946, 91, 548, 5617 

19580 data 82, 999, 399, 95, 418, 261 
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, 8, 223, 

2068 data 
» $27, 497, 
2170 data 
6, 375, 71, 


ii nee 


$i6, 4385, 
B30, 454, 466, 219, 
333, 356, 4163 
2280 data 30, 20, 113, 997, 
, 130, 916, 983, 381, 4863 
2398 data 77, 

933, 388, 916, 
2500 data 382, 
8, 844, 856, 856, 878, 5620 
2600 data 863, 861, 988, 392, 
3, 819, 367, 485, 877, 6121 
3718 data '996, 398, 
00, 13, 540, 394, 
2838 data 442, 867, 
5, 973, 421, 179, 
3940 data 470, 92 
12, 971, 373, 67, 
366@ data 771, 896, 
76, 589, 716, 981, r) 
316@ data 937, 789, i85, 
48, 600, 979, 384, 77, 5459 
3270 data 628, 463, 
97, 361, 749, 989, 67, 
3376 data 554, 772, 
4, 152, 160, 391, 573, 
3480 data 582, 811, 
87, 191, 249, 302, 16, 
3588 data 720, 536, 
1, 437, 407, 79, 622, 5037 
3698 data °489; 592, 
77, 446, 274, 889, 
3806 data 729, 512, 


4346 


~ 
tl 
od 
An 
No 
= 
- 


443, 235, 


586, 


26. 451, 424, 
4040 data 333, 428, 
71, 427, 711, 401, 409, 3 
4150 data 425, 433, 641, 718, 
11, 428, 430, 864, 258, 5085 
4266 data 719, 506, 496, 426, 
$2, 422, 5414 


63, 333, 728, 2 
689, 728, 
5967 


z 


292, Fil, 
44 


4386 data 434, 442, 
85, 437, 965, 346, 656, 
4490 data 445, 220, 467, 724, 
731, 58074 
4616 data 548, 495, 438, 446, 


443, 5204 
4720 data 126, 26, 725, 
8, 952, 473, 797, 504, 5227 
4830 data 444, 452, 377, 7386, 
950, 471, 324, 5993 
429, 449, 4579 689, 
429, 842, 5287 
714, 418, 404, 
369, 683, 
295, 825, 
234, 


48, 
5656 data 
4, 334, 374, 
3168 data 


4 
S386 data 698, 27%, 


72, 383, 738, 
5820 data i113, 
40, 677, 495, 450, 455, 
5536 data 251, 883, 
89, 427, 426, 961, 
6640 data 351, 
24, 432, 886, 717, Sta. 
616@ data 414, 431 
29, 416, 431, 439, 739, 
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e641, 
7, 384, 
289, 


4i, 


86, 

864, 
S41, 
589, 
526, 
386, 
197, 
$i, 

722, 
406, 
411i, 
451, 
621, 
256, 
477, 
437, 
373, 
586, 
659, 


272, 618, 


277, 
742, 
432, 
997, 
353, 
400, 
639, 
783, 
1389, 
456, 
731, 
412, 
7i?7, 


wet ie 366, 63 
9? 
452 
43, 

76 
44 


6 
5 


aomn w 


88 


6 
3 
3 
3 
4 
8 
4 
8 
3 
4 
? 


74 


6 


w 


wo & AN WANS NS N 2 & & 


6270 data 724, 394, 482, 431, 439, 4 
85, 724, » 439, 4862 

6390 data 892, 459, 957, 919, 784, 1 
75, 494, 576, 81, 828, 6165 

6520 data 464, 150, 513, 112, 835, 8 
70, 862, 739, 165, 835, 5545 

6628 data 515, 752, 56, 264, 842, 55 
5, 766, 935, 401, 842, 5928 

6720. data 154, 755, 125, 394, 849, 6 
2, 84, 343, 853, 402, 4021 

6830 data 968, 351, 38, 29, 975, 656 
, 632, 614, 975, 132, 5378 

6938 data 690, 347, 375, 967, 961, 4 
4, 35, 348, 226, 489, 5682 

7030 data 787, 770, 15, 953, 59, 616 
, 619, 615, 917, 913, 6264 

7130 data 956, 773, 184, 169, 354, 4 
80, 965, 723, gis, 273, 5710 

7230 data 252, 935, 645, 227, 214, 9 
65, 116, 441, 51, 23, 3863 

7338 data 664,°798, 76, 356, 151, 67 
, 174, 3963, 45, 971, 4265 
261, 263, 784, 978, 49, 23 


7438 data 
35 











WHAT IS 


ST-CHECK? 


Most program listings in ST-Log are 
followed by a table of numbers appear- 
ing as DATA statements, called “ST 
CHECKSUM DATA.” These numbers 
are to be used in conjunction with ST- 
Check (which appeared in ANALOG 
Computing/ST-Log issue 41. 

ST-Check (written by Clayton Wal- 
num) is designed to find and correct 
typing errors when readers are enter- 
ing programs from the magazine. For 
those readers who would like copies of 
the article, you may send for back is- 
sue 41 ($4.00). 


ANALOG Computing/ST-Log 
PO. Box 625, Holmes, PA 19045 











oa 
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STylish Software 


No question about it, the new Atari 520 ST™ is a 
remarkable computer. And nothing complements a great 
computer better than great software and great peripherals. 


HabaWriter™. A full-function word processor, featuring 
windows for simultaneous multiple document editing as 
well as pull-down menus for fast access to program 
commands. Advantageous use of the mouse means never 
having to memorize cryptic commands again. HabaWriter 
is the word processor your 520 ST has been waiting for. If 
you do any writing at all, take a look at HabaWriter. 
Suggested Retail: $74.95 


Habadex PhoneBook™ is the elegant way to store phone 
numbers. And it not only stores numbers, but it can dial 
them as well. It works and looks just like the flip-up phone 
book that you’re used to. Long distance services like MCI 
and Sprint can be automatically dialed so you don’t have 
to. The PhoneBook can sort on any field, is versatile 
enough to handle other types of information and can even 
print mailing labels. (Automatic dialing requires either a 
HabaModem™ or any Hayes™ compatible modem. ) 
Suggested Retail: $49.95 


The new HabaDisk™ 10 Megabyte hard disk for the 520 
ST is a Winchester plug-in hard disk that is capable of 
storing the equivalent of more than 12 dual-sided 800K 
diskettes and retrieves information in seconds (3 msec. 
track-to-track access time). It is self-powered and 
completely Atari ST compatible (including Atari Desktop 
and GEM™ DOS). Suggested Retail: $699.95 


Also available for the 520 ST: 

Haba Checkminder™—Suggested Retail: $74.95 

Haba Mail Room ™—Suggested Retail: $74.95 
HabaMerge™—Suggested Retail: $39.95 

Solutions: Wills™—Suggested Retail: $49.95 

Solutions: Business Letters™—Suggested Retail: $49.95 





520 ST is a trademark of Atari Corp. HabaWriter, Habadex PhoneBook, HabaModem, HabaDisk, Haba Checkminder, Haba Mail Room , HabaMerge, Solutions: Wills, and Solutions: Business Letters are trademarks of Haba 
Systems, Inc. Hayes is a trademark of Hayes Microcomputer Corp. GEM is a trademark of Digital Research, Inc. 
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STupendous Storage 


6711 Valjean Avenue 
Van Nuys, CA 91406 
(818) 989-5822 @ (800) HOT-HABA (USA) ® (800) FOR-HABA (CA 











HOW TO GET THE MOST 


OUT OF YOUR ATARI. 














The powerful new Atari ST is capable 
of extraordinary color graphics. Right 
now, there is only one full size, com- 
mercially available color printer that 
can screen dump in over 120 - 
colors off the Atari ST, and 
we've got it. The 
Shanner SPC 
700CI color printer. 
Other features 
include: 
= Fast and quiet 
operation 
= Uses standard 
paper—inexpensive to operate 
= Centronics interface—compatible 
with many other computers 


VIP 
PROFESSIONAL 
SPREADSHEET 


$9990 


Full-Blown Original Version | 


= Million characters per color ribbon cassette 
= Made by Seikosha 


VIP Professional is our powerful new 
software for the Atari ST. Its program is 
identical in features and commands 

to Lotus 1-2-3 with Macros, 

: _ 256 x 8092 columns, Data 
Base capabilities with 
Sort and Query Fields. 


VIP Professional is a trademark 
of VIP Technologies, Lotus 
1-2-3 1s a trademark of Lotus 
Development Corporation 

Atari ST ts a trademark 
of Atari Corporation 


SPC-700CI 
COLOR PRINTER 


$99995 


GUMBALL EXPRESS ORDER FORM . For FAST delivery use this order form or call TOLL FREE 800/423-9442 


Product Description Price P&L TOTAL 
VIP Professional $ 99.90 $3.50 $103.40 
for Atari ST 

Shanner SPC-700CI $299.95 $7.50 $307.45 


OJ Check here and add $14.95 to $399.95 
All products will be shipped prepaid UPS ground. 


CO Check enclosed. (NOTE— order will be shipped when check clears). 


Make check payable to: 
Gumball Express 
707 S.W. Washington Street Suite 200 
Portland, Oregon 97205 


O VISA O MASTERCARD 
Name on card 

Account # 

Expiration Date 

Signature 

SHIP TO: 

Name 

Address 

RO ic oe tale. ID 


C.O.D.’s and purchase orders will not be accepted by Gumball Express. 
Outside the USA add $10. and make payment by bank draft, payable in 
U.S. dollars drawn on a U.S. bank. 


0) INTERBANK (MasterCard only) 
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VIP Professional/Lite 


VIP TECHNOLOGIES 
132 Aero Camino 
Santa Barbara, CA 93117 
(805) 685-3948 
520ST VIP Professional $180 
VIP Professional Lite $100 





by Arthur Leyenberger 





When I first got the VIP Professional, 
I was eager to try it. I’d been a long-time 
user of Lotus 1-2-3, and I wanted to com- 
pare them head to head (or, more ap- 
propriately, cell to cell). 

Lotus 1-2-3 was and is a breakthrough 
in the MS-DOS world. I was hoping the 
Professional would be the same for 
Atari. Here’s where the tale begins. 

In the carton, I found a thick reference 
manual. On skimming, it seemed easy 
to read. I also found the 3¥2-inch micro 
floppy disk. Eager to try the program on 
my 520ST, I booted up with TOS, then 
inserted the Professional disk in the 
drive. When I tried to get a disk direc- 
tory, I got an error message. 

Taking the disk out, I discovered what 
seemed to be a piece of adhesive tape 
on the disk’s business end. Looking 
closer, I read a warning to the effect that, 
if | broke this seal, I was bound to the 
rules and regulations set forth in VIP’s 
software license. Okay, I'd seen this kind 
of warning before. Typically, though, the 
disks would come wrapped in a sealed 
baggie; opening it would bind me to the 
license agreement. 

I attempted to remove the sticker. It 
wouldn't come off—not easily. I soon 
realized the only way to remove it (and 
to use the disk) was to scrape it off. 


ST-LOG 


I began doing so very carefully, try- 
ing to avoid getting crumbs inside the 
disk shell. I kept scraping, rubbing and, 
generally, getting nervous. I knew that 
if anything did get into the disk un- 
detected, it might become history once 
accessed by the drive. Finally, I got the 
sticker off and inserted the disk. 

VIP Professional booted fine. I didn't 
have time then for a full-length session. 
I just wanted to see how similar the 
screen and user interface were to the 
Lotus—and it looked very much the 
same. It is a Lotus clone, right? 

My next surprise came on exiting the 
program. The message said, insert TOS 
disk and turn the computer off and on. 
I was slightly annoyed that I couldn't get 
back to the desktop. It was a nuisance, 
nothing more. 

Next, I thought I'd better back the pro- 
gram up, so I wouldn't have to worry 
about those crumbs. Using MichTron’s 
M-Copy program (the best currently 
available), I made a backup. When I tried 
to run the copy, I found it wouldn't work. 
It still needed the original disk in drive 
1, using the key disk system. Surprise: 
VIP is copy protected. 

I’m against copy protection for appli- 
cation and utility programs. If manufac- 
turers want to protect games, that’s okay 
with me. But a program used for seri- 
ous work—especially at this price— 
shouldn't be copy protected. And, with 


those crumbs still causing nightmares, 
I get queasy every time I put the origi- 
nal in the drive. 

So ends my preface. Right off the bat, 
I felt abused by VIP. The disk was stuck 
shut; I had to unstick it, causing possi- 
ble disk damage— and I couldn't back 
it up completely. At least VIP could have 
included two disks. 

It’s been a month since that first ex- 
perience with VIP Professional. I no 
longer feel angry. But I have seen sever- 
al revisions of the program, each correct- 
ing previous bugs. I finally have a copy 
of Professional that’s bug free, as far as 
I can tell. Now it’s time for an objective 
review. 

Professional by VIP Technologies is a 
spreadsheet for the ST, based upon the 
well-known, widely-used Lotus 1-2-3. As 
an integrated spreadsheet, Profession- 
al provides a sophisticated spreadsheet, 
database and presentation graphics ca- 
pabilities, rolled into one program. 

It really is a Lotus clone. As such, it 
will let you use the same keystrokes, ap- 
plications, data files and templates as 
the original does. Worksheet files creat- 
ed on an IBM PC with Lotus 1-2-3 can 
be transferred to the ST, then accessed 
by the VIP Professional. No muss, no 
fuss. 

The version of the Professional used 
for this review was the so-called text ver- 
sion, which doesn’t use the GEM system 
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VA Review continued 


at all. No mouse control, drop-down 
menus or pointing and clicking. But 
that’s how Lotus 1-2-3 works; many peo- 
ple have used this setup effectively for 
years. 

Professional has two modes of opera- 
tion. NAT is the native mode, used most 
of the time. The other is WKS and is Lo- 
tus compatible. In the latter mode, files 
in Lotus format can be read into and 
saved from Professional. 

The native mode files load and save 
very quickly from the spreadsheet, 
whereas files in the WKS mode have to 
be translated when loaded. It’s slightly 
slower. Pressing the ALT and UNDO 
keys on the ST toggle Professional into 
the two modes. 

On a 520ST with TOS on disk, only 
about 40K of memory is available for 
your Professional spreadsheets. With 
TOS on ROM, a spreadsheet can be over 
200K in size. If you have a 1-megabyte 
ST (either a 520 upgrade or a 1040), over 
V2 megabyte is available for your spread- 
sheet—more than the IBM PC allows 
Lotus 1-2-3. 

The documentation is first rate. The 
comprehensive spiral bound handbook 
has over 200 pages, divided into tutori- 
al and reference sections, plus a glossary, 
appendices and an index. 

Well written and easy to understand, 
the tutorial gets you started with the 
program and introduces you to the ba- 
sic concepts of VIP Professional. You’re 
led through a sample budget worksheet 
with plenty of procedures and examples. 
The reference section gives details about 
the variety of available commands and 
functions. 

The VIP Professional screen is divid- 
ed into two areas, with a menu at the 
top line and the worksheet area filling 
the remainder. The menu line at the top 


gives the titles for commands accessed 
by pressing the / key. 

For example, pressing /w displays an- 
other set of menu titles, like column 
width, delete, erase, global, window, etc. 
Select an item, and you’re prompted for 
an entry. Pressing ESC returns you to 
the previous menu level. 

The worksheet area consists of a grid- 
like pattern of horizontal and vertical 
lines forming cells. Each cell may con- 
tain a piece of data. Columns are labeled 
A, B, C..., and rows are labeled by 
number, top to bottom. 

The arrow cursor keys are used to 
move the cell pointer around the work- 
sheet. Wherever the cell pointer rests in- 
dicates which cell will be affected by 
data entry or be a command’s starting 
point. The current cell, as indicated by 
the pointer, is displayed at the top left 
of the screen. 

Like other spreadsheets, any position 
in the sheet can be defined as a label, 
value or formula. Further, any formula 
can relate to any other positions (or com- 
binations of positions) on the worksheet. 

When a position’s value changes, all 
items dependent on that value change 
automatically, without any effort on the 
user’s part. This allows you to perform 
whatever calculations and manipula- 
tions of figures you wish—with amaz- 
ing speed and accuracy. 

There are a couple of negative aspects 
to Professional. The program currently 
only supports TOS-recognized printers, 
so Epson and Epson compatibles are the 
only printers that will work with the 
program's graphic output. 

Unlike Lotus, Professional won't let 
you select output devices. Another pro- 
blem, albeit minor, is that you can't for- 
mat a disk from the program. Lotus 1-2-3 
shares this snag. 


St ROCKY MOUNTAIN 


1750 30th STREET 


BOULDER, CO 80301 


FNATAR SERVILE 


EXTENDED SERVICE CONTRACTS 
SALES # CONSIGNMENTS ¢ TRADE-INS 


TO FIND THE SERVICE CENTER NEAREST YOU 


NATIONWIDE _ 


IN COLORADO = 
DENVER/BOULDER Metro 


Dial: 1-800-66-ATARI 
Dial: 1-800-55-ATARI 


— Dial: 44-ATARI 


VISIT ELECTRIC LAND: 303/447-ABBS 
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Being copy protected, the Profession- 
al uses a key disk system. As mentioned 
earlier, this means you can copy the 
disk’s contents to another disk, but the 
original program must be in drive A 
when it’s run. However, the program 
can't be used with a hard disk. With the 
key disk in drive A, Professional sim- 
ply will not run from drive C. 

Many have complained about the Pro- 
fessional’s slow scrolling when redraw- 
ing the screen, as compared to Lotus 
1-2-3. Scrolling in any direction in Lo- 
tus is instantaneous. With the former, a 
slight delay occurs if the screen is re- 
drawn. VIP explains this by saying that 
the IBM PC only has 2K bytes of screen 
memory to update, whereas the ST has 
32K bytes. That accounts for the slow- 
ness. 

I understand the technicalities, but it’s 
still no excuse. When a user is familiar 
with an excellent product (like SynCalc 
for the 8-bit Atari, which has no scroll- 
ing problems), they expect a more ex- 
pensive, more sophisticated product to 
function as well as that, if not better. 

Professional Lite is almost identical to 
Professional. Aside from a price $80 
lower, Lite doesn’t have the ability to use 
macros, has no database functions and 
has a matrix of “only” 256 by 2048 cells 
(Professional allows a whopping 8192 
spreadsheet rows, while Lotus 1-2-3 will 
yield up to 2047 rows). 

If you don't need these features, Lite 
is the one to buy. The discounted price 
will fall somewhere in the $79-$80 
range, which makes it an excellent bar- 
gain. 

The GEM version of Professional 
should be even better. It’s due in the sec- 
ond quarter of 1986. Current VIP policy 
is that all registered owners of Profes- 
sional will receive the GEM upgrade for 
free, instead of for the original $20 fee. 

The bottom line is that Professional 
and Professional Lite from VIP Technol- 
ogies are, as they claim, true imitations 
of Lotus 1-2-3. Both programs have bet- 
ter graph features than Lotus, and the 
68000 processor of the ST makes calcu- 
lations much faster than does the IBM 
PC’s 8088. 

The documentation is good, and the 
price is right for Lite—and for the full 
Professional, if you need it. Now that 
the bugs have been worked out, I have 
no problem with recommending either 
one. A 
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by Clayton Walnum 





Okay, people. Pass your homework to the front of 
the class. What was that? Did I hear someone in the 
back say, “What homework?” 


For those who need their memories refreshed, last 
month I suggested that you try writing a C version 
of a simple number guessing game. You were to have 
the computer pick a number from 1 to 100, then al- 
low a player to enter guesses. With each guess, the 
player was to receive a clue as to whether he was too 
high or too low. 


My solution for this project is found in Listing 1. 
Does your program look something like this? May- 
be, maybe not. At this early point in your C career, 
I think the following qualities are most important. 


First of all, does it work? If you can give me an 
affirmative, you’ve earned 70 points. At this stage 
of the game, getting programs up and running is a 
good part of the battle. 


Now, did you use a structured approach? Does the 
function main() concern itself with the major steps 
of the game, allotting details to other functions? If 
so, give yourself another 20 points. When you become 
more familiar with C, this category will be more 
pointworthy. In fact, eventually, an unstructured pro- 
gram will be an automatic zero. Strict, huh? 


Finally, how readable is your code? Have you used 
indentation? Are there blank lines between each func- 


ST-LOG 


Part 5. 


tion? Did you use meaningful names for your func- 
tions and variables? Another 10 points to those who've 
added this touch of elegance. 


Game time again. 

Now that you've tallied up your homework score, 
type in Listing 1 and compile it. If you need help, 
see the sidebar accompanying Part 3 (issue 41) of this 
series. 

To play the game, run the program and follow the 
prompts. When you're asked to input a number, end 
your response with the SPACE BAR (remember the 
strange way scanf() works). Everything work okay? 
Let’s examine this program in a little more detail. 

The function main() is written in a manner that 
makes the program’s general operation clearly appar- 
ent. All the details are taken care of in other func- 
tions. In other words, the program is structured. 

We start off by initializing the flag play to TRUE. 
This will get us into the while loop at Line 9. As long 
as play is true, this loop will repeat, allowing the user 
to play many games without rerunning the program 
each time. 

Once in the loop, we must initialize some variables. 
The counter turns tallies the player’s guesses. The flag 
win tells main() when the player has made a correct 
guess. 

After initializing the variables, we call the func- 
tion getnum(), which returns a random number be- 
tween 1 and 100. Next, since we had the forethought 
to initialize win to false, we enter the while loop at 
Line 12. This loop will repeat until win becomes true, 
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keeping the player guessing until he comes up with 
the right number. 

In the body of the loop, we increment the turn 
counter, get the player’s guess, then check if he's right. 
If not, win remains false and the loop repeats. If it’s 
been guessed correctly, program execution drops 
through to Line 17, where the player is told how many 
guesses were made. 

Line 18 calls play__again() to see if the player wants 
to continue. If so, the flag play remains true, and the 
outer while loop repeats. When play becomes false, 
the program ends, and the user’s returned to the 
desktop. 

Easy, right? You should’ve followed the above with 
little difficulty. 

The other functions are just as simple. The func- 
tion get_num() uses the same method we incorpo- 
rated last month in our dice game to get a random 
number. The only difference is that now we're get- 
ting a number between 1 and 100 rather than between 
1 and 6. 

The function get__guess() incorporates a while loop, 
forcing the player to enter a number within the proper 
range. The loop will repeat until the gamester bends 
to our will. 

The function check__guess() checks if the player’s 
guess was too high, too low, or right on the money, 
then prints the appropriate message. If the player has 
guessed right, then wn is set to TRUE (and, thus, 
win), and the game is over. 

Finally, the function play__again() asks if the play- 
er wants another whack at it. Once again, we use a 
while loop to guarantee a proper response. The call 
to getchar() at Line 58 gets rid of the extra character 
scanf() likes to leave lying around. 

Some classy information. 

Before we take a look at the next two listings, we 
need to discuss a fun topic called “Storage Classes.” 

All storage you define in your C programs has a 
storage class, whether you’re aware of it or not. In 
our previous program examples, the storage classes 
were set automatically. We didn’t have to concern our- 
selves with the details. That’s all fine and dandy for 
a beginner, but sooner or later we're going to have 
to know how our variables are treated by the system. 

There are four C keywords that refer to the stor- 
age classes. They are: extern, auto, static and register. 

The keyword extern stands for external. Any vari- 
able that’s not defined within a function falls into this 
class. Both Listing 1 and Listing 2 contain examples. 
Notice the arrays week[] and weeks]. 

Unlike local variables that disappear once we're 
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through with them, external variables may be acces- 

sed anywhere within your program. The only rule 

to remember is that, if their declaration appears in 

another file or after a function that refers to them, 

they must be declared as external in the function 

where they’re used. Here’s a declaration example: 
extern int numbers; 


Automatic (or auto) variables are those declared 
within a function. They remain healthy and happy 
as long as we stay within the function where they 
were declared. The moment we exit, they vanish into 
that great CPU in the sky. It’s not necessary to declare 
these variables by their storage class (we never have, 
right?)—but, if you wanted to, this is what it would 
look like: 

auto int number; 


Variables of the class static are similar to automat- 
ic variables, except their values aren't forgotten when 
the function is exited. Don’t try to access them in oth- 
er parts of your program, though. They’re still stran- 
gers there. Look at this code fragment: 


maint) 
{ 


for ¢x=@; x<5; +#+4x) 
counter (); 


gouater ©] 


Static int count=1; 
Borenre 4 ", ##count) ; 


The output from this example would be: 
23456 


Each time we call counter(), the variable count is 
incremented and printed out. If we hadn’t declared 
count as a static variable, the output would have been 
a string of 2s. 

Do you see why? When a static variable is initial- 
ized as we did in counter(), it receives its initial val- 
ue the first time we call the function. Thereafter, the 
declaration and initialization is ignored. This is only 
logical, since what good would a static variable be 
if it was reset each time we called the function? 

By not declaring count as static, it automatically 
becomes automatic (no, I’m not being redundant). 
Each time we call the function, it gets set to 1, then 
it’s incremented and printed. This gives us that string 
of 2s. 

One last note on static variables. An interesting var- 
iation of this class can be created by defining it out- 
side any function. This type of variable is called 
“external static.’ This class varies from regular ex- 
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ternal variables, in that it can be accessed only within 
the file where itjappears, and only in functions fol- 
lowing its declaration. 

The last class we need to discuss are register vari- 
ables. They’re defined like this: 


register int number; 


When we declare a register variable, we're request- 
ing that the value be stored in one of the ST’s registers 
where processing is much quicker. Notice I used the 
word requesting. If there’s no register free in which 
to store our variable, it becomes an automatic variable. 

Hip, hip array! 

We took a brief look at arrays when we wrote our 
sort program a couple of months ago. Now we're go- 
ing to dig a little deeper. 

First, let’s tackle Listing 2. Suppose you're selling 
a peculiar product called a whamble (a what?) in your 
small business. At the end of the week, you want to 
write a quick and dirty program that'll print the num- 
ber of units sold that week. Listing 2 is just such a 
program. When you run it, your output should look 
like this: 

Sales for day 
Sales for day 
Sales for day 
Sales for day 
Sales for day 


Sales for day 
Sales for day 


Total sales: 38 
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The first thing we must do in this program is in- 
itialize an array. In our sorting program, we didn't 
worry about that. All we did was declare the array, 
then fill it, later in the program, with the numbers 
the user input. Sometimes, though, you'll need to 
have the array data stored and ready to process at 
run time. Line 2 shows you how to do this. 

To initialize an array as part of its declaration, the 
array name is followed by an equal sign, which, in 
turn, is followed by the elements of the array, sepa- 
rated by commas and placed between brackets. Here 
are more examples: 

int numbers[] = {1,2,4}; 
int numbers(31 = (1,2,45; 
float numbers{] = €1.1,2.2,4.4}; 

The first is just like the declaration on Line 2, and 
the second example is, in this case, functionally the 
same as the first. However, it does present potential 
difficulties. 

For instance, in the first example, the compiler au- 
tomatically makes the array size the same as the num- 
ber of values that follow. In the second example, we're 
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telling the compiler that, no matter what, we want 
a three-element array. Here’s a strange one: 


int numbers(4] = (1,2};. 


What do you suppose happens here? Well, the com- 
piler sets aside an array containing four elements, 
then looks to see what we've got stuffed between the 
brackets. 

The first value goes into the first element, the sec- 
ond into the second. After that, if it’s an external or 
static array, the remaining elements are initialized 
to 0. Otherwise, whatever garbage happens to be in 
those locations filling out the remainder of the ar- 
ray becomes an authorized resident. Trouble, for sure. 
Here’s another problem maker: 


int numbers(2] = €1,2,4}; 


There’s no way you're going to get away with this. 
Your compiler is sure to present you with some snide 
comments on your programming skills—and they’ll 
be well deserved. You can’t get three data items into 
a two-element array. 

Continuing with Listing 2, after we've initialized 
our array, the program uses a for loop to access each 
element, add it to the total and print it out. Except 
for a little nuance with the way we’ve initialized the 
for loop, you’ve seen all this before. Just remember 
that an array starts at element 0. 

Now, how about that nuance I mentioned? Look 
at Line 6. I hope you remember about for loops. The 
first expression in the parentheses is the initializa- 
tion, the second is the loop control, and the third 
is the loop’s step value. 

In this example, we've taken the opportunity to in- 
itialize not only the loop variable, but the accumula- 
tor total as well. This is a handy way to set variables 
used within a loop to their starting values. 

Line 7 offers a new assignment operator for your 
inspection, one that’s quite similar to the increment 
and decrement operators. Line 7 does the same work 
as this line of code: 


TOTAL=TOTALtWEEK [i] 
The right side of the expression is added to the left. 


Another dimension. 

C is also capable of handling multi-dimensional ar- 
rays. You can think of these as arrays of arrays. List- 
ing 3 illustrates how to handle them. 

The declaration is similar to that of a one-dimen- 
sional array, except we've added another set of brack- 
ets, to tell the compiler how we would like the array 
set up. 

Look at Line 2. Here we’re declaring an array with 
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use your keyboard quickly and properly. 
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two sets of seven elements. You can think of this as 
a matrix, with two rows and seven columns. 

When we initialize the array, each row of data is 
placed within its own set of braces. The rows, just 
like the data within, are separated by a comma. Fi- 
nally, the entire array is enclosed with another set 
of braces. This tells the compiler how we want each 
element placed. Take a look at this: 


jnt ata) [i fees 
€3,4,5) 
3 


Here, we've declared an array which contains two 
arrays of three elements each. But wait a minute! In 
our initialization, we’re missing a data element for 
the first subarray. How’s this going to work out? Is 
the first element of the second row going to end up 
as the third element in the first? 

Nope. The 1 will be placed in the first element of 
the first row. The 2 will go in the second. The third 
element of the first row will be initialized to 0. (Re- 
member that rule about external data?) The second 
row will be initialized just the way we want it. No 
mix-ups. 

To tell you the truth, you don’t need all those ex- 
tra braces. We could’ve initialized weeks|][] by plac- 
ing all the data between one set of brackets, like this: 


 €3,6,7,4,3,8,9,5,3,729,3,2,6) 

The array will still function properly, but it’s much 
harder to see how the data’s divided up—and we've 
left ourselves open for possible errors. If we should 
accidentally (or deliberately, if you happen to enjoy 
that sort of thing) leave out one of the data elements, 
the compiler will no longer sort it out for us, mak- 
ing sure everything gets into its proper location. 


It’ll assign each element consecutively until it runs 
out of data, and then initialize the rest to 0. Your pro- 
gram is then sure to act peculiarly. This type of er- 
ror can be extremely difficult to locate. 


Whambles for sale. 
Okay, enough talk. Get Listing 3 compiled. A pro- 
gram run will look like this: 
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Sales for day i: 3 
Sales for day 2: 6 
Sales for day 3: 7 
Sales for day 4: 4 
Sales for day 5: 3 
Sales for day 6: 8 
Sales for day 7: 93 
Sales for week 1: 480 
Sales for day 1: 5 
Sales for day 2: 3 
Sales for day 3: 7 
Sales for day 4: 9 
Sales for day 5: 3 
Sales for day 6: 2 
Sales for day 7: 6 


Sales for week z: 35 
Total sales for month: 75 


Two weeks. Wow, what a short month. Yes, I know 
there are usually four weeks in a month. I limited 
the output, so the data wouldn't scroll off your screen. 
What a nice guy! 

This program is an example of indexing a two- 
dimensional array. Lines 9 and 10 set up nested for 
loops. The outer loop handles the indexing of the 
weeks; the inner loop indexes days. 

The day loop is performed seven times for each 
iteration of the week loop. Line 11 shows how all this 
relates to our array. 

The first subscript refers to each row of data 
(weeks). The second is the columns, or days. The first 
time we get to Line 11, w and d both equal 0. So we're 
looking at weeks(0][0], that is, the data in row 0 and 
column 0. If we look at the array initialization, we 
see that this is the value 3. 

The day’s total sales are printed, then the inner loop 
is repeated, incrementing d and advancing us to the 
row 0’s next element. Looking at the data, we see 
that weeks[0][1] equals 6. 

This loop repeats until d is no longer less than 7. 
At that point, we drop through to Line 14 and print 
the total for the week, and add to our monthly total. 

Returning to the outer loop, w is incremented, and 
we re-enter the inner loop, resetting d to 0. Now we're 
referencing weeks[1][0], row 1 and column 0, or the 
value 5. The inner loop continues through row 1 just 
as it did with row 0. 

When we return to the outer loop, the value of w 
is incremented again, and thus is no longer less than 
2. The looping is completed, and program execution 
continues at Line 18, where the monthly total is 
printed. 


Red and flustered. 
That’s it for this month. Sit back and relax. Put 
your feet up, massage your temples to get rid of that 
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thundering headache (arrays are like that; yeah, they 
are). 

Now that we've got all the work out of the way, it’s 
confession time. It seems that a couple of the list- 
ings from issue 40’s C-manship got a bit messed up. 
I’m still not sure how it happened, but if you were 
getting strange results, you can place the blame firmly 
on my shoulders. 

The following corrections should be made (this in- 
cludes those of you with disk subscriptions). 

Line 8 of Listing 3 should be: 


printf € ">4810d<\n", num): 


Line 11 of Listing 4 and Line 9 of Listing 6 should 
be: 


ch = getchard); 


Also, a couple of sentences got dropped from the 
end of page 75. The last part of the paragraph should 
read: 

In other words, in our program, every place 
the word TEXT appears, the string Your full 
name is will be substituted. Notice that there’s 
no semi-colon at the end of a #define statement. 
It’s a compiler directive and not subject to the 
semi-colon rule. 


Happy trails. 

Next month, we'll start developing our own input 
routines, so we won't be at the mercy of such func- 
tions as scanf() and gets(). Till then, fool around a bit 
with arrays. They’re neat little critters. Al 





Listing 1. 
C listing. 
include <stdio.h> 
include <osbind.h> 
i TRUE i 
define FALSE @ 
ing 
int nun, guess, win, turns, play; 
Play = TRUE; 
wee (play) 
tu ns = @; win = FALSE; 
nun = get_nun(); 
while Clwin) ( 
44turns; 
guess = get_guess(); 
in = Check_guess(num, guess); 


} 
printfC("It took you %d turns.\n\n", turns); 
Play = play_againQ); 


+ 
int get_num() 
int n; 
n= Cint? Random) ; 
Pecorntasy 
int get_guess( 
int g; 
9 = 8; 
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while ¢€ {1 g>1e8) { 
prin fim nter a number from 1 to 108: "); 


scanf("%d", &9); 
printf C\nn"D; ; 


return (9); 


int check_guess (num, guess) 
int num, guess; 


int wn=FALSE; 


if Ctguess < num) 
printf Bid low\n\n"); 
else if (guess > num 
Printft"Too high\n\n") ; 
else { 
PrintfC"You guessed it!\n"); 
wn = TRUE; 


return (wn) ; 


Play_again() 
int ch, P; 


P 
Ch. = getcharQ; 
while Seauenteo Gee && (p!=FALSE) » € 
rin a 
ft tnt BatcRSP SS =F aye {1 ch == "¥") 
Ms = TRUE; 
else if (ch == ‘n* [| ch == "ND 
Pp FALSE; 


3 
printf c'\n\n"); 
return (p); 


Listing 2. 
C listing. 


Rinclude <stdio.h> 
int week(] = (5,7,2,10,7,1,6}; 
main(d) 
int i,total,ch; 
for (i=@, total=6; i{7; itt) { 
total t= weekLil; ’ i 
rintf("sales for day %d: %d\n", iti, weekLil); 
prantfc"\n") ; 


printfC"Total sales: %d", total); 
ch = getchar 0); 


Listing 3. 
C listing. 


Rinclude <stdio.h> 


int weeks(2][7] = { 
3,6,7,4,3 age 9}, 
(5; 3: 2729,322,6} 


yin 


int w,d,Mtot, wtot,ch; 


for bsg J mtot=@; w<2; wtt) 
(d=8, wtot=6; dé? ates { 
| etek += weeks [w] 1 Ed 15 
rintft"sales for day “4d: “%d\n", dti, weeks(wl] [d1); 


printf C'\n"); 
printfC("sales for week %d: Z~d\n\n", wi, wtot); 
geet t= wtot; 


printéC'\n\n") ; 
Printf("Total sales for month: “%~d\n", mtot); 
Ch = getchart); 
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iS InSoft, Corp. 


ACTIVISION 

Borrowed Time 

Hacker 

Mindshadow 

Music Studio 
ADDISON/WESLEY 
Sorcerer of Claymorgue 
Spiderman 

ANTIC 


A-Calc 

Lands of Havoc 

Mom and Me—RGB 
Murray and Me—RGB 
ARTWORX 

Bridge 4.0 
Compubridge 

Hole in One 

Strip Poker 2 
BECKEMEYER DEVELOPMENT 
TOOLS 


Call for latest prices 
BATTERIES INCLUDED 
24 
Word for Word 24 
DRAGON GROUP 
4 x Forth Level | 62 
4 x Forth Level II 93 
ELECTRONIC ARTS 
Chess Master 27 
Financial Cookbook 


FIREBIRD 
Starglider 
The Pawn 
FTL 


Sundog 

HABA SYSTEMS 

Call for latest prices 
HIPPOPOTAMUS 
Hippo Backgammon 
Hippo Jokes and Quotes 
Call for latest prices 
INFOCOM 

A Mind Forever Voy. 
Bally Hoo 
Cutthroats 

Deadline 

Enchanter 


4 Hitchhiker's Guide 


Infidel 
Planetfall 
Seastalker 
Sorcerer 
Spellbreaker 
Starcross 
Suspect 
Suspended 
Wishbringer 
Witness 
Zork | 

Zork |! 


30 Zork III 


ST Hardware 


(Please add shipping and handling charges found in brackets. ) 


Atari Hardware (call for 1040 ST) 
520 ST, Monochrome, 2 MEG Drive 
520 ST, Monochrome, 1 MEG Drive 
520 ST, RGB, “2 MEG Drive 
520 ST, RGB, 1 MEG Drive 


1 MEG DRIVE 
V2 MEG DRIVE 


Keyboard, mouse, 2 MEG Drive 
Keyboard, mouse, 1 MEG Drive 


Monitor, RGB 
Monitor, Monochrome 
Hippo EPROM Burner 


InSoft ST NETWORK 


For the low annual membership fee of $50, ST Network members 
can buy Hardware and Software for their ST’s at Wholesale + 5% 


As a limited time offer to new members, buy hardware and software for your ST at 
wholesale prices shown for orders placed before 7/15/86. After 7/15/86, add 5% to prices 
shown when ordering. 


CALL TOLL FREE 1-800-556-5580 (orders and memberships) CALL FOR COMPLETE CATALOG 
For technical questions about items offered and compatibility, call (617) 739-9012. 


ST Software 


(Please add $2 for shipping and handling for each software title ordered. ) 


MARK OF THE UNICORN 
$27 Hex $ 
27 Mince 
The Final Word 
24 MEG 
Megafont 
Rubber Stamp 
Typesetter 
24 METACOMCO 
21 Assembler 
Lattice C 
Meta Pascal 
27 MIC 
24 Silent Service 
24 MICHTRON 
29 Bulletin Board Service 
24 Business Tools 
24 DOS Shell 
27 Direct File Transfer 
24 Flip Side 
24 Flight Simulator 
27 Gold Runner 
29 Kissed 
29 M-Disk 
27 Mud Pies 
29 Mi-Term 
24 Personal Money Manager 
24 Softspool 
24 Time Bandit 
27 MIGRAPH 
27 Easydraw 


$620 (40) Epson 
700 (40) 
770 (40) 
850 (40) 
198 (15) 
160 (15) 
Call 

Call 

400 (25) 
175 (25) 
105 (6) 
159 (10) 


STAR 


Toshiba 
Okidata 


MIRAGE 
24 H & D Base 
100 H & D Forth 
85 0.8.8. 
Disk Kit—Disk Editor 
24 Personal Pascal 
24 Prolog 


24 OTHER VALLEY SOFTWARE 


Delta Patrol— RGB 
48 Monkey Business—RGB 
90 PENGUIN 
60 Coveted Mirror 
Crimson Crown 
24 Do-Tops 
Frank and Ernest 
29 Sword of Kadash 
30 The Quest 
24 Transylvania 
30 PHYLON 
24 Fast Basic 
24 Henry's Fundamental 
24 Basic 
24 PRIORITY SOFTWARE 
24 Forbidden Quest 
24 PSYGNOSIS 
29 Bratacus 
30 QM 
24 ST Talk 
24 QUICKVIEW 
Zoomracks 
90 REGENT 
Word 


PRINTERS 


Call 
Call 
Call 
Call 


Sony 
Maxell 
Nashua 


Spell 
$58 Base 
30 SIERRA ON LINE 
Black Cauldron 
24 King’s Quest | 
45 King’s Quest II 
54 Ultima II 
Universe II 
15 SPINNAKER 
15 Amazon 
Fahrenheit 451 
24 Nine Princes in Amber 
24 Perry Mason 
24 Treasure Island 
24 $S 
24 Phantasie 
24 SST 
24 Chat 2.0 
SYNAPSE 
75 Mindwheel 
TDI 


29 Andra 
Modula 2 

24 UCSD Pascal 
UNISON 

28 Art Gallery | 
Print Master 

11 VER. 


The Professional 


DISKS 31" (10) 


Dual Sided 
$25 (3) 
25 (3) 


Single Sided 
$15 (3) 
15 (3) 


InSoft ST NETWORK 
MEMBERSHIP APPLICATION 


PO. Box 180 
Boston, MA 02123 


1-800-556-5580 
1-617-739-9012 


Compatibility of ST configuration with software/hardware is the 


sie Modem 1200 ST 
Soft 


Logic Logikhron Clock Radio 30 (3) responsibility of buyer 


Restocking fee is 15% for merchandise not accepted 
Products Ordered Cost +5% S/H 
Membership— one year 


InSoft’s Magazine on a Disk 
12 months —$70 
6 months— $45 


Total 
$50 











Mass. residents add 5% sales tax 
Check or Money Order enclosed for 
Name 
Address 


InSoft’s C Tool Boxes 
Math Tool Box —$59 
Search/Sort Tool Box—$59 
Graphic Tool Box— $59 
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ATARI ST MACHINE LANGUAGE 


ATARI ST GEM PROGRAMMER’S REFERENCE 


ATARI ST INTERNALS 
ABACUS SOFTWARE, INC. 
P.O. Box 7211 

Grand Rapids, MI 49510 
(616) 241-5510 

$19.95 each 





by Douglas Weir 





The Atari ST may have been “made 
for America,” as the ads put it, but there 
are signs that it has also prompted a Ger- 
man invasion. A Dusseldorf, West Ger- 
many company called Data Becker has 
apparently had teams of experts busy 
since the ST was first introduced, writ- 
ing a series of books to cover just about 
every programming aspect of the ma- 
chine. 

Presenting the Atari ST, the first vol- 
ume of the series, translated into Eng- 
lish and published in the United States 
by Abacus Software, appeared last fall. 
At the time, I thought it a bit long on 
copy and short on hard information. 
Now, however, it’s been joined by three 
comrades, in the same distinctive field- 
gray paper covers. One of these is very 
good, and two are really excellent. 

Atari ST Machine Language falls into 
the “very good” category. The authors 
advise you to “get a book on the 68000 
processor and its instructions” (some- 
thing like the official Motorola manual) 
as a companion to this volume, intend- 
ed only as an introduction to assembly 
language programming on the ST. The 
274-page book has eight chapters, cover- 
ing the expected topics: binary repre- 
sentation, 68000 architecture, flow of 
control, data structures, etc. 

Beware the discussion of assemblers 
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in chapter 6; the authors have some sort 
of generic assembler in mind, not the 
(notorious) “AS68” supplied with the 
Atari Developer’s Kit. 

The two final chapters first take you, 
step-by-step, through the development of 
a simple decimal-to-binary conversion 
program; then eight sample ST assem- 
bly language programs are presented in 
chapter 8. Programs are accompanied by 
detailed descriptions of their operation, 
and each comes complete with its own 
keyboard and console I/O routines (all 
run under TOS—GEM is not discussed 
in this book). 

Essentially, the book is arranged as a 
read-it-through tutorial, with no exer- 
cises. Written in a pleasant style, its oc- 
casional mistranslations only serve to 
make the prose rather endearing. 

Despite their reliance on flowcharting 
as a program development tool, I found 
the authors’ treatment of most topics su- 
perior to (for example) that in the well- 
known Kane, Hawkins and Leventhal 
book, 68000 Assembly Language Pro- 
gramming, published by McGraw Hill. 

You'll have to pick your way through 
a fair number of misprints (though most 
are obvious), and you'll have to put up 
with having no index (apparently one 
more result of the famous “No Index” 
law enacted for computer book publish- 
ers several years ago). 

Still, I do think you'll find this book 
very useful if you are just starting as- 





sembly language programming on the 
ST—especially when used with the 
Motorola manual and your own assem- 
bler’s documentation. 

Programmers now have a handy one- 
volume GEM guide in the Atari ST GEM 
Programmer's Reference (414 pages). 
Anyone programming with GEM should 
have a copy of this book. The bulk of its 
contents— which we find in chapters 3 
and 4—cover the VDI and AES func- 
tions. 

Each function is listed separately, with 
at least one page to itself, in a format 
similar to (but more readable than) that 
used in the Digital Research manuals in 
the Atari Developer’s Kit. There are two 
short sections, “Sample Programs using 
the VDI” and “Sample Programs using 
the AES,” containing short C and assem- 
bly language programs. 

An interesting aspect of the assembly 
language programs is that they’re com- 
pletely self-contained. All the contr! and 
intin, etc. arrays are declared explicitly, 
and calls are made directly through the 
entry point in the ST BDOS, rather than 
by linking to AESBIND and VDIBIND. 
It’s nice to know how to do this, if one 
has to. 

Where appropriate, the authors have 
included ST-specific information on par- 
ticular functions. For example, we're told 
that vst__load__fonts() will always re- 
turn a null, since no additional charac- 
ter sets are now available for the ST. 
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There are, however, cases where we 
get less information than the DRI manu- 
als offer: for example, pages 5-19 of the 
VDI manual go into quite a bit of detail 
on vst__point() (a function to set the cur- 
rent graphic text character height), while 
the Abacus entry on page 133 confines 
itself to a few vague sentences. 

Chapter 1 is a fairly cursory overview 
of GEM on the ST (I’m starting to think 
that GEM/TOS on the ST could be a Jap- 
anese art film, where everyone's account 
of the same subject is unrecognizably 
different from everyone else’s). Chapter 
2 includes short introductions to pro- 
gramming in C and assembly language. 
Also in chapter 2 is a description of the 
main parts of the Atari Developer's Kit, 
with some helpful tips on using the C 
compiler, assembler and linker. As 
seems usual with these Abacus books, 
there are misprints, but most are obvi- 
ous, and none of those I noticed would 
lead to serious misunderstanding. 

In the appendices, you'll find a list of 
VDI and AES functions, as well as a list 
of the 68000 instruction set. There’s also 
(surprise!) an index, but the authors have 
managed to maintain partial compliance 
with the above-mentioned law by not 
putting the VDI and AES function lists 
in alphabetical order. 

All joking aside, I found this a very 
useful book, one I think no serious GEM 
programmer should do without. 

Finally, with 446 pages, Atari ST In- 
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ternals is the biggest and the best of the 
current lot. This book is filled with in- 
dispensable information. 

You might also want to acquire a copy 
of the most recent version of the Atari 
Hitchhiker’s Guide to the Bios, included 
in the Developer’s Kit. The authors of the 
Abacus book seem to have used an earli- 
er version of the Guide, so that (for the 
most part) anything discussed beyond 
page 43 of the August 26 version of the 
Guide is not covered here. This includes 
such things as Cartridge Support, ROM 
Initialization, Boot Sectors, etc., which 
a lot of programmers can probably do 
without. 

The book has two main divisions, the 
first covering hardware aspects of the 
ST; the second, software. There's a short 
section on the 68000, 7 pages on the 
four custom chips, and sections on the 
floppy disk controller chip, 68901 multi- 
function chip, 6850 ACIA chips and the 
sound chip. The latter sections consist 
of short introductions and fairly detailed 
descriptions of pinouts and chip archi- 
tecture. Addresses and descriptions of 
all the ST’s I/O registers are given. 

Next comes an 18-page section on the 
keyboard interface, with descriptions of 
the mouse and the keyboard processor 
commands, and a chart of ST key codes. 
A 2-page assembly language program, 
which the authors used to read the 6301 
(keyboard processor) ROM and output 
it to a printer, is included. It provides, 


incidentally, an example of how to use 
some of the GEMDOS and XBIOS calls. 

Shorter sections on the video connec- 
tion, the Centronics interface, the RS- 
232 and MIDI interface, the cartridge 
slot, and the floppy disk and DMA in- 
terface follow. These are all hardware 
descriptions and consist, for the most 
part, of pinout discussions. All in all, 
the hardware section of the book oc- 
cupies the first 100 pages. 

Software aspects take up the rest of 
the book. GEMDOS, BIOS and XBIOS 
calls receive detailed treatment on pages 
105-205. The GEMDOS functions are the 
TOS “system-level” calls—used, for ex- 
ample, to access the disk, get keyboard 
input, etc. Many of them resemble the 
IBM PC MS-DOS system calls. 

Each function is described, and most 
are accompanied by assembly language 
examples to show how they’re used. The 
ST BIOS and XBIOS functions are allot- 
ted a page each. Both have their own ex- 
planatory text and assembly code 
samples. (I noticed an important mis- 
print on page 199: XBIOS function num- 
ber 34—kbdvbase—returns its pointer 
in dO, not a0.) 

There is a good discussion of the 
“line a” codes on pages 206-233. Pages 
234-254 deal with the ST’s exception 
vectors, the VT52 emulator and the ST 
system variables. There is (yet another) 
summary of the 68000 instruction set on 
pages 255-267. 
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4 Review continued 


Finally, on pages 268-442, you'll find 
a complete (fully commented) assembly- 
language source code listing of the ST 
BIOS. This includes the code for all the 
GEMDOS, BIOS and XBIOS calls, the 
68901, keyboard and VT52 routines, and 
the screen dump. 

Even if your BIOS version is different 
from that given here (you can check, by 


The Exciting Atari ST 


Computers Are Here... 


New software and enhancements are arriving 
daily for this wonderful computer. We will 
evaluate and carry only the best products, so 
you can depend on us to support everything 
we sell! 


comparing the date-of-creation bytes 4 ST Printer Cable i Call or circle our Reader Service Number on 
close to the beginning of the listing with oie ah soulese the Response Card to put your name on our 
yours), you will certainly find this sec- ST Disc Drive Cable 6 foot i mailing list. That will entitle you to our FREE 
tion extremely useful, if you're at all in- 1200/00 Auto Modem (Hyes Type). only $179.95 CATALOGS with product reviews, tips and 
terested in the ST’s internal workings. Citizen Printer model 120D super buy $199.95 rumors on the ST. 

I highly recommend this book. But I ie pee ot ai ee VISA and MasterCard gladly accepted 
feel bound to mention that—you We service whot we sell since 1969 Toll Free 800-782-7007 (Oregon 479.9516) 
guessed it—there’s no index, and the COMPUTER OUTLET 
wealth of information presented can (619) 282-6200 E Al | |] F 4 
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SERVICE CARD 


Shanner 
Planner 


Remember the expression “A picture is worth a 
thousand words?” Take a second look. The Shanner 
Planner™ is the first ever full system portfolio created 
specifically for the computer user. Designed to 
address the individual needs of the computer in- 
dustry, The Shanner Planner is tastefully constructed 
of long lasting, durable, textured nylon (it's the 
in thing today) to maintain its smart appeatance 
over time. 


__ ~ SHANNER INTERNATIONAL CORP. 


. ‘The Shanner Planner™ is a creation of, marketed worldwide by, 
and is a Trademark of SHANNER INTERNATIONAL CORP. 
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The Shanner Planner™ 
gives you and comes with: 


e Storage for four disks -3'2” or 
5%” (specify preference 
when ordering ) 

5 x 8” Notepad - can also 
accommodate documentation 
up to 300 pages 

Pen and Pencil Compartment 
Ruler Slot 

Business Card Section 

5 Year Calendar 

Full Function Memory Calculator 
Each Shanner Planner comes 
with either four 32” disks or 
four 54” diskettes 


The unique velcro locking system 
ensures that your important media 
and contents are safely secured in 
their compartments at all times. 


Measuring approximately the size of 
a normal executive portfolio, The 
Shanner Planner will fit comfortably 
into any size attache or carrying case, 
and comes packaged in an attractive 


gift giving box. 





fe) \ Dealer Inquiries Accepted 


Call 800/828-6637 


Please send me _________ Shanner Planner(s). 


lam enclosing $ ———_______._ Canadian Orders: 
(CA residents add $2.60 taxper Planner) | Canadian cost per Planner is $49.95. 
Please make check or money order (Ontario residents add $3.50 PST per 


payable to: Planner) Please direct orders to: 
Shanner International Corp. Shanner Sales & Marketing, Inc. 
453 Ravendale Drive 450 Garyray Drive 

Mountain View, CA 94030 Weston, Ontario 

Name 

Address 

City State Zip 
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For all orders: Please add $3.00 per Planner for shipping and handling. C.0.D.'s and 
purchase orders will not be accepted. Please allow 21 days for delivery. 
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